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PRODUCT CODE: AC-1114A-MC 

PRODUCT NAME: CZRNFAO RM80 FCTNL PT 3 
PRODUCT DATE: APRIL 1, 1982 
MAINTAINER: | CX DIAGNOSTIC GROUP 
AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOUL T BE _CONSTRUED AS A_ COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR iN THIS MANUAL 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
thy oad OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 





COPYRIGHT (C) 1982 DIGITAL EQUIPMENT CORPORATION 


SEQ 0001 





°° Se eee ee 


CZRNFAO RM8O FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 2 


ce ee ee eed eed eed eed eed oe ed 
NAMES WN © OONAOULS WN “OO VO@NAUS Wh a 


WwrN— 


5 Deh ee ed 


2. 


6. 


CONTENTS 


INTRODUCTION 


1. ABSTRACT 
2. UNIT UNDER TEST 


OPERATING REQUIREMENTS 
1. HARDWARE REQUIREMENTS 
- MEDIA REQUIREMENTS 
- PREREQUISITE DIAGNOSTIC PROGRAMS 


OPERATING PROCEDURE 
1. LOADING 
¢° SWITCH OPTIONS 
STARTING 
- HALTING 
5. RESTARTING 
OPERATOR INTERFACE 






PROGRAM I.D. 
é- CONSOLE DIALOGUE 
PROGRESS REPORTS 
4. PERFORMANCE REPORTS 
6. ERROR REPORTS 
7. EXECUTION TIME 
ENVIRONMENTAL SUPPORT 
. PROCESSOR COMPATIBILITY 
; DUAL PORT CONFIGURATIONS 
: MEMORY PARITY 







ACT, APT COMPATIBILITY 
XXDP COMPATIBILITY 
* OPERATING SYSTEM COMPATIBILITY 


TEST DESCRIPTION 





SEQ 0002 


0 OO QOdOQO)O OO OO EE EE EOE eee ee ee eee a —_——_ ee ee 
oe = co 


D 
CZRNFAO RM8O FCTNL PT3 MACRO V04.00 28-JAN~82 16:49:32 PAGE 3 SEQ 0003 


1.0 INTRODUCTION 
1.1 ABSTRACT 

THE RM8O SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM WHICH 
USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE RM80 DISK 
SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
2 a! al INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 





TO IMPLICITLY ESTABLISH CONFIDENCE IN THE ORIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONALITY OF THE RM80 SUBSYSTEM, INCLUDING THE 
MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 


THE TEST IS COMPRISED OF 4 eat WHICH WOULD IN 


NORMALLY BE RUN 
SEQUENCE. STARTING WITH PART 1. GRIEFLY, PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL TIONING OPERATIONS: PART 2 TESTS WRITE AD AND 
TESTS WRITE. 


POSI 
WRITE agile Ck OPERATIONS USING HEADER AND DATA: PART 3 
POSITIONING OPERATIONS AND VARIOUS TIMING PARAMETERS OF THE RMBO DISK 











WRITE CHECK OPERATIONS USING DATA; PART 4 TESTS 


CONAUL WA) 0 OONO USWA) OOO NOufwnh)— 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RM80 DI SUBSYSTEM WHICH 
CONSISTS OF THE MASSBUS CONTROLLER _,THE MASSBUS ADAPTER , 
AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK IS REQUIRED FOR 
TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK DRIVE. 





Moron) raw) ed ed ed ed ed ed ed ed eed ed 
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, 2.0 OPERATING REQUIREMENTS 
. 2.1 HARDWARE REQUIREMENTS 
3 THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED 10 BE 









4% OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RM8O0 SUBSYSTEM 
49 FUNCTIONAL TEST: 
4 PDP-11 PROCESSOR 
KW11=L OR KW11-P CLOCK 
0 PROGRAM LOADING DEVICE 
7 TERMI 
: RH70 CONTROLLER 
i TO 8 RM8O DISK DRIVES 


4 
: 
2.2 MEDIA REQUIREMENTS 
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59 EACH UNIT BEING TESTED MUST Pere 
60 BEGINS ON THAT UNIT. THE DRIVE 1 HAVE Ps 
61 A READABLE COPY OF THE MFG(DEC 24). USR(DEC144 
og FILES. 
: 
65 DATA TRANSFERS WILL BE PERFORMED ON THE FE CYLINDERS ONLY. 
i 
> 2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
71 RM8O DISKLESS TEST, PART 1 & 2 
7s RM8O FUNCTIONAL TEST, PART 1 & 2 
3 
a 3.0 OPERATING PROCEDURE 
a 3.1 LOADING 
81 THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 
85 PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
He .XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 
i 
Py 3.2 SWITCH OPTIONS 
90 
a OF T 
33 SWi5. HALT ON ERROR 
94 SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
95 $W13 = =INHIBIT ERROR TYPEOUTS 
38 SWi2 UNUSED 
9 . SW INHIBIT TEST ITERATIONS 
BELL ON ERROR 


3.3 STARTING 


THE 
WILL BE THE NORMAL START! 


mhatataswasadabasas—pabasabes 
RAWVACSHVR AR AVI OOS 


BEFORE TESTING 
ISK AND CONTAIN 
BAD SECTOR 


NOTE: TO ENSURE THAT ALL CUSTOMER DATA IS PRESERVED ON THE are’ ALL 


THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
HE PROGRAM. 


LOOP ON ERROR 
SWO8 LOOP ON TEST IN SW07-00 


THE LOW ORDER 8 SWITCHES (SW07-SW00) 


ARE USED IN CONJUNCTION WITH 
— oS on SPECIFY THE OCTAL NUMBER WILL 


THE TEST WHICH THE PROGRAM 


PROGRAM MAY BE STARTED AT LOVATO S 200 OR 
200 NG ADD NG AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. 


SEQ 0004 
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3.4 HALTING 
THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 


NOTE: IF THE PROGRAM IS HALTED BY ANY OTHER MEANS HEADER 
INFORMATION MAY BE LEFT ON THE DISK. THIS OF COURSE. DEPENDS 
ON WHICH TEST WAS BEING PERFORMED AT THE TIME THE PROGRAM 
WAS HALTED. ALSO, THIS ONLY APPLIES TO A NORMAL (ERROR FREE) 
OPERATION OF THE PROGRAM. 


BNAULSWN—OOOnawn 


3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


—Z 


FUN 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


WG 
w 








THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. so P 
THE OPERATOR OF POSSIBLE Hg 





NOTIFING T 
HALTED IMPROPERLY. THE DEN 
OCCUR IF THE PROGRAM IS RESTARTED. 





4.2 CONSOLE DIALOGUE 





DVRNE UD ODS 


MUMUIMVIMIMIUI 





IS wegen IN STAND ALONE MODE. IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER T wae THE PROGRAM. I1.D. AND WARNING 
MESSAGE .(SEE SECTION 4.1) 


THE FIRST QUESTION TYPED OUT IS: “TYPE HELP TEXT (L) N 2". 

IF THE OPERATOR RESPONDS WITH A THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A 'N'' AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP'S. 











ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 


DIALOGUE. 
$3 EXAMPLE 1 
$5 RMCS1= =\76r 0 <CR> NO CHANGE IN ADDRESS 
68 RMVEC=000254 <CR> NO CHANGE IN ADDRESS 
e EXAMPLE 2 


RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 1772 
RAVE =0002%4 260<CR> ;CHANGE VECTOR ADDRESS TO i 


™~ 
—s 





il tite dneiemtepecsemnnepmmetenermecnecnoensl 


G 
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ON THE INITIAL START. YPED IS, "TYPE ‘‘A’’ TO 
PE NATE 









TEST ALL DRIVES TY INPUT WITH 
A CARRIAGE RET THEN, WAITS FOR THE 
OPERATOR TO TYPE ‘hte a’ TOT VES OR TYPE ANY 
STRING OF DRIVE NUMBER(SS TO BE Y THE INPUT WITH A 
“CARR TURN’’. NO COMMAS OR p ARE NEEDED WHEN 

_ ENTERING THE DRIVE NUMBERS AS A S RI ENTERS THE COMMA 





SEPARTOR AUTOMATICALLY AFTER TYPI NUMBER. ON ALL SUBSEQUENT 


STARTS, ONLY THE ‘DRIVE(S):° T 
THE DIAGNOSTIC THEN INITIALIZES AND TS THE STATUS OF THE 
ORES UE PAIR — SPECIFIED FOR TESTING. THE FOLLOWING 


"UNIT STATUS: 


9 RM80 

¢ RM8O 

4 NOT PRESENT 

5 NOT AN_RM80 

6 NOT PRESENT 
7 NOT PRESENT’ 


THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 
1 = 7 WILL NOT BE TESTED. 


THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
STATUS OF THE DRIVE: 


"DRIVE(S) TO BE TESTED, 0° 


IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 


"DRIVE(S) TO BE TESTED, NONE’ 


THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 


ONCE THE DRIVES START reetine- THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 


"DRIVE 0° 


AFTER ALL THE DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
ESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
S HALTED BY THE OPERATOR. 


NOTE: THE LETTER vag WITHIN THE BRACKETS () INDICATES THE TYPE 
etek REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AND 


ce ce cee ce ce re ee ee ed ee ed ed ch ed ed ed eed eed eed ceed eed eed eed ed od 
ARAHVIS GS NRAE AOL OOD NAAR HO OOO ROI 













come eke mb eh ed od ed ood 


UEWNI@OWOONOULWwIY)—O 


4.3 PROGRESS REPORTS 


——————— eee ean S8 OCS 64 8S Se ae 
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AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS_ EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 


"END OF PASS is 


THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 


"TOTAL ERRORS SINCE LAST REPORT 0° 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED, THE DRIVE TYPE, THE TEST NUMBER, T 
NUMBER AND THE QUNTER WHERE T 


PROGRAM C 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: 
WHICH GIVE A BRIEF, YET rear Rae DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 













CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 


EXPECTED AND ACTUAL TEST RESULTS. 
THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 


DRV# 0 = RMBO, TEST# 14, ERRA 326, PC=016654 
TA BUS PARITY ERROR ** (RMCS2, BIT 8) DETECTED 


sane if 

Sito $Bioo bo Ske. Bifo 
oc a 
524026 997977 



















164252 





RAC) RMEC2 
004066 000000 





RMWC 
177403 
RMAR 1 
000010 


104604 
was, for 
011777 


4.7 EXECUTION TIME 


PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 50 SECONDS. 


SEQ 0007 


——— eee 
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5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 
E RM80 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON A PDP-11/70 


PROCESSOR PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
ING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 


MET OV 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 
THE RM80 SUBSYSTEM FUNCTI TEST DOES NOT SPECIFICALLY TEST 
IN THE 0 ADAPTER BUT IS EXECUTABLE ON RM8O 


DUAL PORT L 
SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH 
IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RM80 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM80 SUSBYSTEM 
FUNCTIONAL TEST. 


5.5 si APT11 COMPATIBILITY 


HE RMBO SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 AND 
APT 111 "iN BOTH AU C MODES. WILL 
— A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RM8&O suey Sten FUNCTIONAL TEST IS COMPATIBLE WITH XXDP_ IN 
DUMP AND S, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RM80 IS THE XXDP LOADING DEVICE. 





5.7 OPERATING SYSTEM COMPATIBILITY 
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


eee 


CZRNFAO RM8O FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 3-6 


343 


oF 


NEUE WN OOD NO 


~~ wi 
NA SE SESS SSSERG 


SNNN 
Quis 


he 
on 


es3 


WN 


6.0 


TEST 


TEST DESCRIPTION 


1 CONTROLLER ACCESS TEST 


_ PURPOSE: 


TEST 


TO VERIFY THAT THE UNIBUS ADDRESS OF THE RM80 SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION SBASE. 


PROCEDURE : 


THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
i THE S$BASE ADDRESS. REGISTER CONTENTS ARE I D DURING 

THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 


IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND 
AL NT, I. E- LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION Oe unicH THE OPERATOR TO CHANGE 
ADDRESS VIA CONSOLE A OTALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 






2-22  WRITE/READ DATA TESTS 
PURPOSE : 
TO TEST WRITE DATA AND READ DATA FUNCTIONALITY OF THE 





MOTION, HEAD SWITCHING AND ERROR CONDITIONS. 
PROCEDURE : 
ALTHOUGH cae TEST EXERCISES A DIFFERENT Re x THE 


GENERAL _PROCEDUR Spit vE IS 
INITIALIZED AND RECALIBRATED IF PI ‘SkI'' ARE ACTIVE SO THAT 
INERE CARE” NO ERRORS UNEN A TEST BEGINS. THEN. THE TEST FORMATS 
THE SECTOR BEING USED. WHICH MAY VARY FROM THE “PROGRAM. LISTI 
BECAUSE SECTORS ARE SUBSTITUTED DURING RUN TIME IF THE SELECTED 
SECTOR IS LISTED IN THE BAD K T TRACK. 
PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR 
AND THE WRITE 


















FOLLOWING THAT, THE TEST 

THE CONDITIONS OF THE TEST. 
DATA COMMAND IS EXECUTED. 
THE TEST STORES ALL SUBSYSTEM 
ERRORS WHICH PRECLUDE OTHER STATUS CHE AR 
PRIMARY ERRORS. THE TEST VERIFIES THE RESULTS OF THE WRITE 
COMMAND AND THEN CHECKS FOR SECONDARY ERRORS. LOOP ADDRESSES ARE 












RM80 
SUBSYSTEM USING A SET OF VARIABLES WHICH INCLUDE WORD COUNT, HEAD 


SEQ 0009 


———> 
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MODIFIED FOLLOWING THE ah aoe COMPLETION OF T 
IN ORDER TO SHORTEN EXECUTION TIMES AND ENHANC I 
THEN THE PROGRAM CUTES THE READ DATA PORTION OF THE TES 
VERIFYING THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 


NOTE: THE SECTOR USED eae A TEST MAY DIFFER FROM THE PROGRAM 


LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR, IF 
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE. 


TEST 2 WRITE, READ ZEROS TEST 


THE TEST WRITES AND READS AN ALL ZEROS DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


TEST 3 WRITE, WRITE CHECK ZEROS TEST 


THE TEST WRITES AND WRITE CHECKS AN ALL ZEROS DATA FIELD, 
VERIFYING THAT THERE ARE NO ERRORS. 


TEST 4 WRITE, WRITE CHECK ZEROS W/ WCE ERROR TEST 


THE TEST WRITES AN ALL ZEROS DATA FIELD THEN COMPLEMENTS 
EACH BIT IN THE LAST WORD OF THE E BUFFER. A WRITE CHECK 
COMMAND IS EX ECUTED AND THE TEST SERIF IES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 





TEST 5 WRITE, READ ONES TEST 


THE TEST WRITES AND READS AN ALL ONES DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


TEST 6 WRITE, WRITE CHECK ONES TEST 
THE TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD. 


————— ee 
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TEST 


TEST 


TEST 


TEST 


7 WRITE, WRITE CHECK ONES W/ WCE ERROR TEST 


THE TEST WRITES AN ALL ONES DATA FIELD, THEN PERFORMS A 
WRITE CHECK DATA COMMAND AFTER COMPLEMENTING EACH BIT IN THE LAST 
BUFFER. THE TEST VERIFIES THAT THE CORRECT 

WRITE * CHECK ERRO® IS DETECTED. 






10 WRITE, WRITE CHECK MULTIPLE SECTORS TEST 


THE TEST SEEKS TO CYLINDER 559. TO INSURE Ba IS NO HEAD 
MOTION DURING DATA TRANSFER. _ THE WRITE DATA COMMAND FOLLOWS, 
WITH THE WOR T “_ TO MULTIPLE SECTORS. THE SAME SECTORS 

ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. THE TEST IS 
REPEATED FOR 16 BIT FORMAT WITH SSEI BIT SET. 





11 WRITE, READ W/ IMPLIED SEEK TEST 


THIS TEST SEEKS TO THE FIRST CYLINDER PRIOR TO WRITING DATA 
ON CYLINDER 559., TRACK 2 AND SECTOR 0. THE EXPLICIT SEEK INSURES 
THAT THERE WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK OF 
TH a OPERATION, INCLUDING THE EXPLICIT 
SEEK IS REPEATED FOR READ DATA. 





12 READ, WRITE CHECK W/ HEAD SWITCHING TEST 


THE TEST SEEKS TO CYLINDER 559. TO INSURE THERE IS NO HEAD 
MO DATA TRANSFER. on as READ READ DATA COMMAND STARTS WITH 
CYLINDER TRACK 2, SECTOR HE WORD COUNT IS EQUAL 

SE WHICH CAUSES THE siesvsTEN. To SWITCH FROM TRACK 
2T CK 3 AFTER THE FIRST SECTOR IS WRITTEN. THE SAME SEC 
ARE VERIFIED WITH A WRITE CHECK DATA C 
COUNT STARTING SECTOR. iF THE 
EXECUTING A DATA COM 


THE TE R 
WHERE SECTOR 31. IS THE. LAST SECTOR. IF NO "SSE* WAS SET, THEN 
BOTH FORMAT MODES WILL BE EXECUTED. 











S 
SAME 
SET Ag 





T 
IS 






TEST 13 READ, WRITE CHECK W/ MID-TRANSFER SEEK TEST 


SEQ 0011 
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TEST 


TEST 


TEST 


TEST 


THIS TEST READS MULTIPLE SECTORS STARTING WITH CYLINDER 
559.. LAST TRACK AND SECTOR 30., CAU A MID-TRANSFER SEEK 
AFTER THE FIRST OF THE MULTIPLE SECTORS ARE WRITTEN. 

SECTORS ARE VERIFIED WITH A WRITE CHECK DATA ‘ 

'SSE* BIT IS SET AFTER EXECUTING A DATA COMMAND, THE 16 BIT MODE 
WILL BE TERMINATED AND THE TEST I$ REPEATED FOR 16 BIT FORMAT 
WITH THE SSEI BIT SET, WHERE SECTOR 31. IS THE LAST SECTOR. IF NO 
"SSE" WAS SET. THEN BOTH FORMAT MODES WILL BE EXECUTED. 


14 WRITE, READ W/ HCE ERROR TEST 


A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN THE 
TEST WRITES AND READS DATA FROM THE SECTOR AND VERIFIES THAT THE 
CORRECT ERROR IS DETECTED. EACH BIT POSITION OF BOTH HEADER 
WORDS IS TESTED IN THIS MANNER. 


15 WRITE, READ W/ HCI & SSEI TEST 


A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN WRITTEN 
AND READ WITH H AR SKIP SECTOR ERROR INHIBITED. 
THE TEST VERIFIES THAT NO ERROR IS DETECTED. 


16 WRITE, READ W/ IVC ERROR TEST 


VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE. THE TEST THEN EXECUTES A WRITE DATA COMMAMD AND VERIFIES 
eH ie COMMAND STATUS SETS. THE TEST IS R°:. ATED FOR READ 






17 WRITE, READ W/ ABORT TEST 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES A 
WRITE DATA COMMAND VERIFYING THAT ‘PIP"* REMAINS INACTIVE. THE 
SAME PROCEDURE IS USED FOR READ DATA COMMAND. 


TEST 20 WRITE, READ EARLY PEAK SHIFT TEST 


SEQ 0012 


ee 
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THIS TEST WRITES AND READS A SINGLE SECTOR USING A _ DATA 
PATTERN DESIGNED TO INTRODUCE EARLY PEAK SHIFT. 


TEST 21 WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT TEST 


THE TEST WRITES AND READS WITH EACH TRACK USING A MIX OF 
EARLY, NORMAL AND LATE PEAK SHIFTS. 


TEST 22 READ MULTIPLE SECTORS IN OFFSET MODE TEST 


THE TEST execures READ DATA AND WRITE CHECK DATA COMMANDS IN 
OFFSET MODE IN BOTH OFFSET DIRECTIONS WITH THE TRANSFER SIZE OF 
TWO SECTORS AT A TIME. 


TEST 23 FORMAT FE CYLINDERS 


ae TEST FORMATS BOTH FE CYLINDERS TO RE-ESTABLISH THE 
CORREC T 6 THE SECTORS THAT WERE WRITTEN UPON BY oat ee 
TESTS. tit t USst is S DONE IN 16 BIi FORMAT WITH THE SSEI BIT SET TO 
ALLOW SECTORS ON EACH TRACK TO BE FORMATTED. 








——— 


SEQ 0015 
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:*LAST REVISION 08-OCT-81 


-TITLE CZRNFAO FCTNL PTS 

: *COPYRIGHT T (C) 19 

:*DIGITAL 5 te! to ante 
OLORADO 






: #PROGRAM BY MIKE LEAVITT 


PROGRAM WAS ASSEMBLED Ye NG OAR he MAINDEC SYSMAC 


ts THIS 
: #PACKAGE (MAINDEC-11-DZQAC-C5) 
:SBTTL OPERATIONAL SWITCH SETTINGS 


is SWITCH USE 

:* 15 HALT ON ERROR 

* 14 LOOP ON TEST 

7 13 INHIBIT ERROR TYPEOUTS 
:* 11 INHIBIT ITERATIONS 

3* 10 BELL ON ERROR 

3* 9 LOOP ON E 

* : LOOP ON TEST IN SWR<7:0> 
:* TN 

:* : TN32 

3* 4 ™N16 

3 3 TNS 

:* ‘ Ma 

8 0 i 


-SBTTL BASIC DEFINITIONS 
*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 


STACK = 1100 
ERROR EMT 
SCOPE 10T 






3;sBASIC DEFINITION OF ERROR CALL 
:sBASIC DEFINITION OF SCOPE CALL 


FEED 
$$ CODE ra CARRIAGE RETURN 


+2 STACK LIMIT REGISTER 


; ;HARDWARE DISPLAY REGISTER 


SE REGISTER DEFINITIONS 
:GE REGISTER 
: | GENERAL REGISTER 
33 GISTER 
GISTER 





77 INTERRUPT REQUEST REGISTER 
7757 3 S HARDWARE SWITCH REGISTER 


SEQ 0014 





: as a —— 
| ct é 
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BASIC DEFINITIONS 


R4 = %4 : GENERAL REGISTER | 
5 RS = %5 : :GENERAL REGISTER | 
R = 26 : :GENERAL REGISTER 
R = % : :GENERAL REGISTER 
SP = x6 *:STACK POINTER 
PC = % ::PROGRAM COUNTER 
-*PRIORITY LEVEL DEFINITIONS 
000000 PRO = 0 + :PRIORITY LEVEL 0 
000040 PRI = 40 * PRIORITY LEVEL 1 
000100 PRe = 1 : PRIORITY LEVEL é 
140 PR = 14 * PRIORITY LEVEL 
PR4 = 00 * PRIORITY LEVEL 4 
40 PR5 = 24 33 RIORITY LEVEL 5 
PR6 = 300 sPRIORITY LEVEL : 
000340 PR7 = 340 ‘PRIORITY LEVEL 
- SWITCH REGISTER’ SWITCH DEFINITIONS 
100000 Swi5 = 1 
040000 Sw14 = 
020000 swi3 = 2 
010000 Swi2 = 1 
004 Swill = G 
002000 swi0s= 
600400 : a 
= 
000200 sw = : 
000100 sw06si= 
000040 swo5 = G 
000020 swo4 = 2 
000010 swos. = 
000004 swo2 = 4 
900002 swol = 2 
= 
601000 yo esw0d 
0004 
000 
000100 
20 
10 
000002 
000001 
1 
$3000 
979009 
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BASIC DEFINITIONS 





0 BIT = 
3 aes 98 
BIT =4 
2 BITOi = . 
1 BIT = 
id BIT9=BIT 
ot rossi! : 
000200 BIT7=BIT 
000100 oi Tones! 
000040 BIT5=8IT 
000020 BIT4=B1T04 
$6004 Bt T2=Br TOE 
BIT2=BIT 
000002 1T1=B1T01 
000001 BITO=BIT 
**BASIC ‘'CPU'' TRAP VECTOR ADDRESSES 
000004 ERR = 4 ::TIME OUT AND OTHER ERRORS 
000010 RESVEC = 10 RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC = 14 33 BIT 
000014 TRIVEC = 14 ss TRACE TRAP 
000014 TVEC = 14 : sBREAKPOINT TRAP (BPT) 
0000 IOTVEC = 20 3s: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
000024 VEC = 24 33 FAIL 
0000 EMTVEC = ; EMULATOR TRAP (EMT) **ERROR** 
000034 = 23° TRAP’’ TRAP 
000060 TKVEC . = 60 ::TTY KEYBOARD VECTOR 
000064 PVEC = Si s:TTY PRINTER VECTOR 
493 000240 | PIRQVEC = 240 ::PROGRAM INTERRUPT REQUEST VECTOR 
pi -SBTTL RMBO REGISTER BIT DEFINITIONS 
+38 :*RMCS1 CONTROL STATUS REGISTER 
498 004000 sDEVICE AVAILABLE-READ ONLY 
499 000040 sFUNCTION CODE 
500 000020 sFUNCTION CODE 
501 000010 sFUNCTION CODE 
502 000004 sFUNCTION CODE 
503 000002 sFUNCTION CODE 
000077 3 TION 





(BITS 01-05 UF RMCS1) 


NOP _ COMMAND 






SEleor 
e 





310 

a : 

51 000012 : 

514 14 “OFFSET COMMAND 

319 1 “RETURN TO CENTERLINE COMMAND 
16 “READ IN PRESET COMMAND 

3 “PACK ACKNOWLEDGE COMMAND 

8 4 s ILLEGAL COMMAND 

520 6 “ILLEGAL COMMAND 


CZRNF 
RM8O REG 


AO RM80 F 


554 


54 


28 33 


rs 
0 


pany ty thyt hyt by sy tyt byt hy 
DNAUS WOO 


Se 
=O0 


TISSSASS. 


ISTER 


C 
8 
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IT DEFINITIONS 
SEARCH = 
ILF = 
ILF - 
ILF s. 
ILF = 
ILF4 = 
2 ILF42. = 
4 ILF44 = 
ILF46 = 
5 WCD > 
5 WCH = 
54 ILFS4 = 
56 ILF56 = 
000060 WD = 
000062 WH = 
000064 ILF64 = 
000066 ILF66 = 
000070 RD = 
000072 RH 2 
000074 ILF74 = 
000076 ILF76 = 
:*RMDA DISK ADDRESS REGISTER 
sTRACK ADDRESS DEFINITIONS 
004000 TAS = BIT11 
002000 TAS = BIT10 
001000 TA2 = BITO9 
00 TAI = BITOS 
“SECTOR ADDRESS DEFINITIONS 
000020 SA16—s«é=‘ BIT 
000010 SAB = BIT 
000004 SA4 = BIT 
000002 SA2 = BIT 
000001 SA1 = BIT 
| “TRACK & SECTOR MASKS 
177400 TADMSK = acre 
0003 SADMSK = 0003 
s*RMDS DRIVE STATUS REGISTER 
100000 ATA = B1T15 
040000 ERR = BIT14 
020000 PIP = B1T1 
910000 MOL = BIT1 
WRL = BIT1 
2000 LBT = BIT10 
1000 PGM = BIT 
00 DPR = BIT : 
200 DRY = BIT 
1 vw = BIT 
1 OM = BIT 


:*RMER1 ERROR REGISTER #1 


ee — 


SEQ 0017 












OMMAND 
ER AND DATA COMMAND 
OMMAND 







ti 
Sooe> 


COMMAND 
AD HEADER AND DATA COMMAND 


:SEARCH COMMAND | 
iI cet COMMAND | 
‘f eA ee | 
7 ILLEGAL COMMAND 

s ILLEGAL COMMAND 

: ILLEGAL COMMAND 

iI Bear COMMAND | 
7 ILLEGAL COMMAND | 
sWRITE CHECK DATA COMMAND 

sWRITE CHECK HEADER AND DATA 

s ILLEGAL COMMAND 

s ILLEGAL COMMAND 

be ATA C 


ewe tee SIF SOP es tee 


sTRACK ADDRESS 8. 
: TRACK ADDRESS 
TRACK ADDRESS 
s TRACK ADDRESS 


SECTOR ADDRESS 16. 
sSECTOR ADDRESS 8. 
sSECTOR ADDRESS 4 
sSECTOR ADDRESS 2 
sSECTGR ADDRESS 1 






TRACK ADDRESS MASK 
SECTOR ADDRESS MASK 


PO 

;MED 

;WRITE LOCK 

fe BLOCK TRANSFERRED 
sDRIVE PRESENT 
sDRIVE READY 
sVOLUME VALID 
OFFSET MODE ACTIVE 


Reoke 


601 


see R SSSR Rees SESS 


AAMAAAAAAAO 
MEWN $$ OOONAULSWN—O 


ceed ad) eet weet ad ee sh ed 


115760 


000377 
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soesscsse sare 
Ss SoNG NODO—NWWEU 


a tt 


S USED TO MASK 


F 


SOA IYE CHECK _— 






3WRITE LOCK ERROR 
NVALID 


ADDRESS ERROR 

S ADDRESS OVERFLOW ERROR 

i ee ae 
HARD: " ERROR 


WRITE CLOCK FAILURE 
;FORMAT ERROR 






;PARI TY ERROR 


COMMANDS, I.E., HOUSEKEEPING AND POSITIONING C 
3*RMAS ATTENTION SUMMARY REGISTER 


‘ATNMSK = 377 


s*RMLA LOOK AHEAD REGISTER 


SC4 = B1T10 


Sc3 = BIT 
SC2 = BIT 
SCI = BIT 


SCTMSK = 003700 
3*RMMR1 MAINTENANCE REGISTER #1 
WRITE ONLY BITS 





back = BIT15 


+4 
eek vet od net ok 
=n 





nuonnnnnnnnnnne 
fevTeelocToclostecToclerteslerlorToslerts +] 
Fema Gey er deny feow Goucg dog, ery teeny feng fey berg eee bro 


P:] 
S 
a 
wo 
we ee 
la 


“uw 
ww 
Creag Heng 


sMASK FOR ATTENTION BITS 





SECTOR COUNT MASK 


DEBUG CLOCK 







K ENABLE 
:DIAGNOSTIC END OF BLOCK 
sDIAGNOSTIC TIMEOUT 
MAINTENANCE CLOCK 


:DEBUG CLOCK 


‘OPERAT ATION IN INCOMPLETE 
SDRIVE TIMING ERROR 


sREGISTER MODIFICATION REFUSED 
SILLEGAL REGISTER 
ZILLEGAL FUNCTION 


K!D DTG IWLE 1 AGE HERG TWEE Le cHiuce Shee 
RROR REGISTER 1 DURING NON = DATA 
OMMANDS 





SEQ 0018 


G 
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RM8O REGISTER BIT DEFINITIONS 










6 0 = BIT1 : 
o31 10 REX = BIT12 s EXCEPTION 
b g ESRC = BIT1 *ENABLE SEARCH 
6 002 PLFS = BIT 10 “LOOKING FOR SYNC 
ECRC = BIT sENABLE CRC OU 
5 PDA = BIT : “DATA AREA 
PHA = BIT sHEADER AREA 
637 100 CONT = BIT * CONTINUE 
0 we = BIT :WORD CLOCK 
639 20 EECC = BIT04 ‘ENABLE ECC OUT 
640 000010 MWD = BIT :WRITE DATA BIT 
641 900004 LS = BIT “LAST SECTOR 
O4¢ 2 LST = BIT “LAST SECTOR AND TRACK 
643 000001 DMD = BIT SDIAGNOSTIC MODE 
649 :*RMDT DRIVE TYPE REGISTER 
647 100000 NSA = BIT15 :NOT SECTOR ADDRESSED = 0 
648 040000 TAP = BIT14 ‘TAPE DRIVE = 0 
649 020000 MOH = BIT13 “MOVING HEAD = 1 
60 004000 DRO = BIT11 DRIVE REQUEST REQUIRED 
65 020026 SNGPRT = 0200 6 sSINGLE PORT DRIVE TYPE 
65 024026 DULPRT = 024026 ‘DUAL PORT DRIVE TYPE 
655 seRMOF OFFSET REGISTER 
657 010000 FMT16 = BIT12 16 BIT WORD FORMAT 
658 004000 ECI = BIT11 sECC INHIBIT 
659 002000 HCI = BIT1 *HEADER COMPARE INHIBIT 
660 001000 SSEI = BIT * SKIP SECTOR ERROR INHIBIT 
661 000200 OF = BIT07 ‘OFFSET FORWARD 
663 :*RMDC DESIRED CYLINDER ADDRESS REGISTER 
665 001777 ‘CYLMSK = 001777 :MASK FOR CYLINDER ADDRESS 
667 :*RMMR2 MAINTENANCE REGISTER #2 
669 *READ ONLY BIT 
6 100000 ROA = BIT1 
671 04 ROB = BIT1 
&é 0 = BIT1 
6 010000 TST = BIT1 E TEST BIT 
674 004 = BIT1 R TAG 
675 002000 CH = BIT1 TAG 
1000 = BIT 
000400 8508 = BIT 
900200 = BIT 
100 = BIT 
3 = 
= 
10 803 = BIT 
: 2 = BIT 
2 B01 = BIT 
ms 1 = BIT “TAG BUS 


oO 
~ 
r*] 
r 4 
> 
oO 


SSREEEEERES 


705 


SaSeoRs 


YANNIS 
enh awed and od ond 
CUS WO 


719 


UEWN-2 


o 
— 
zt 
hl 


H 





a 
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s*RMER2 ERROR REGISTER 2 





IDXMSK 


-SBTTL 


nannnnnun 
oodecteslesTeclosTosl estes) 
ht i ge oo 


SOOO] ae 
WINS —IWwelu 





ey baag beng beg Re ae been be me 


= BIT15 sMANUFACTURING DETECTED SECTOR ERROR 
= BIT14 SUSER DETECTED SECTOR ERROR 

= BIT13 sSKIP SECTOR FAILURE 

RM80 REGISTER INDEX VALUES 


sCONTROL STATUS REGISTER #1 
;DISK ADDRESS REGISTER 
;DRIVE STATUS yw 


REGIST 
SATTEN TION SLR REGISTER 
sL AHEAD TER 
;MAINTENANCE REGISTER 


S 













endd okt —md 
FOAL 


T REGIST 
io ie CYLINDER REGISTER 





sHOLDING REGISTER 
40 ; MAINTENANCE “ty ie #2 
42 SERROR REGISTER 
4d sECC POSITION eetaten 
4 sECC_ PATTERN REGISTER 
5 ; ILLEGAL aeeree ion R 5 
3 sILLEGAL REGI 
28 > ILLEGAL REGISTER 
sILLEGAL REGISTER 
s ILLEGAL REGISTER 
: ILLEGAL 
64 sILt 
sIlt 
| sILt 
7 sit 
74 sILLEGAL REGISTER 74 
76 sILLEGAL REGISTER 76 
= 77 sMASK FOR REGISTER INDEX NUMBER 


RH CONTROLLER REGISTER BIT DEFINITIONS 


:*RMCS1 CONTROL STATUS REGISTER #1 


= BIT15 sSPECIAL CONDITION-READ ONLY 
= BIT14 ; TRANSFER ERROR 


SEQ 0020 


—_———— 


CZRNFAO RM8O FCTNL PT3 MA ° 
RH CONTROLLER REGISTER BIT *DEF INITIONS 


7 


731 


© 


| 


000007 
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RDY 
I 


:*RMCS2 RH 


sUNIT SELECT MASK 


wom 
beat eed tn | few bag bees, ang ms tm 
evel ce ab eee) wed aed 


ene 
~ 
met TP NOOO UWEU 


Ley Gren Seat brew Bog Bene} troop bent fear Derg bent 


UNTMSK = 7 
:*RMCS3 RH70 CONTROL STATUS REGISTER #3 





ABASE 
AVECT1 


= B! 


2 HnhHHnuHHHHaHH 
Boawwowaoanwww 
SO et ag eee eee eg eg bees ang Beg eee 


N 


sMASSBUS CONTROL BUS PARITY ERROR-READ ONLY 


;PORT B 

ADDRESS EXTENSION 
;ADDRESS EXTENSION 
sREADY=READ ONLY 


; INTERRUPT ENABLE 


ONTROL STATUS REGISTER #2 







sDATA_LATE@READ ONLY 
;WRITE CHECK _ERROR@READ ONLY 


S 
SNONEXISTANT DRIVE-READ ONLY 
:NONEXISTANT MEMORY-READ ONLY 
:PR “READ ONLY 


FER 
DATA BUS PARITY ERROR-READ ONLY 
EADY-READ ONLY 








sUNIT SELECT MASK 


sADDRESS PARITY E 


SINVERT PARITY CHECK 


ONTROLLER REGISTER INDEX VALUES 


sCONTROL. STATUS REGISTER #1 
“WORD COUNT REGISTER 
“BUS ADDRESS REGISTER 

; CONTROL STATUS REGISTER #2 
“DATA BUFFER 

*BUS ADDRESS EXTENSION 
“CONTROL, STATUS REGISTER #3 


sUNIBUS ADDRESS 
;UNIBUS VECTOR ADDRESS AND PRIORITY 





SEQ 0021 
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TRAP CATCHER 
1 ~SBTTL TRAP CATCHER 
000000 


=0 
;*ALL_ UNUSED LOCATIONS FROM 4 - re CONTAIN A _‘’,+2,HALT’’ 














FROM 4 | 
**SEQUENCE TO CATCH ILLEGAL TRAPS AND IMTERRUPTS | 
— i #LOCATION, CONTAINS TO CATCH IMPROPLALY LOADED VECTORS | 
000174 000000 DISPREG: .WORD SOFTWARE DISPLAY REGISTER | 
000176 000000 SWREG:  .WORD SOFTWARE SWITCH REGISTER | 
.SBTTL STARTING ADDRESS(ES) 
, 000200 000137 005434 JMP a#START s:JUMP TO STARTING ADDRESS OF PROGRAM 
3 000204 000137 605424 JMP a¥START1 s CHANGE RH/RM BUS ADDRESS 
z .SBTTL ACT11 HOOKS 
SRAAERARARERAARAREREAREEEERERERRARAREEAEAEREREEEEERREREREREEEEEREEEE 
‘HOOKS REQUIRED BY ACT11 
000210 ssypCe. sSAVE PC 
000046 038756 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
0000 = 
000052 000000 “WORD 0 i 2086 LOC. 352 TO ZERO 
- 000210 -=$SVPC ss RESTORE P 
7 001100 | .=1100 
8 “SBTTL APT PARAMETER BLOCK 
SRAEEARAEAAAAAEAKAARARAAAREAEREREEARAARARARRARAEAARARARARAEERARERARAEAEREAREE 
:SeT LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
ee ee 
001100 . .$X=.  ::SAVE CURRENT LOCATION 
000024 326 *:SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 ::FOR APT START 
000044 , =44  ::POINT TO wer INDIRECT ADDRESS PNTR. 
000044 001100 SAPTHOR “POINT TO APT HEADER BLOCK 
001100 °*RESET LOCATION COUNTER 
$ PR el th 2 ot 
“SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
* INTERFACE SPEC. 
1100 SAPTHD: 
1100 000000 SHIBTS: .WORD o. 3 T MAILBOX ADDR. 
1102 001222 SMBADR: .WORD a . 8 (BITS 0-15) 
001104 000024 STSTM: .WORD ; : 
0011 4 SPASTM: .WORD . ; PASS ON 1 UNIT (QUICK VERIFY) 
00111 24 SUNITM: .WORD ‘ * S) OF A PASS FOR EACH ADDED UNIT 
001112 2 WORD TEND=- TABLE (WORDS) 
9 001114 TAGADR=. 





rl 


K 2 
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COMMON TAGS 
0 -SBTTL COMMON TAGS 


SRAAAAAAAEAREREERAERAEEEEAERERERERRERERRARAKES (EERE AAEAEEEREREEE 


:RTHIS TABLE CONTAINS VARIOUS COMMON STORAGE | OCATIONS | 
7*USED IN THE PROGRAM. | 





001114 .=TAGADR 
114 SCMTAG: ::START OF COMMON TAGS 
114 000000 WORD 
116 900 : CONTAINS THE TEST NUMBER 
11 000 : CONTAI 
129 900000 0 : CONTAINS SUBTEST ITERATION COUNT 
1 0 i :CONTAINS SCOPE LOOP. ADDRESS 
124 000000 ZCONTAINS SCOPE RETURN FOR ERRORS 
126 000000 0 S:CONTAINS TOTAL ERRORS DETECTED 
1 000 0 ;;CONTAINS ITEM CONTROL BYTE 
131 001 1 ZCONTAINS MAX. ERRORS PER TEST 
132 000000 0 : CONTAINS PC OF LAST ERROR INSTRUCTION 
1 0 ZCONTAINS ADDRESS OF ‘GOOD’ DATA 
136 0 S:CONTAINS ADDRESS OF ‘BAD’ DATA 
1% 0 ::CONTAINS GOOD" DATA 
142 000000 ZCONTAINS 'BAD’ DAT 
144 000000 :ERESERVED--NOT TO BE USED 
146 000000 
150 000 i sAUTOMATIC MODE INDICATOR 
151 000 ZZINTERRUPT MODE INDICATOR 
152 000000 
154 
156 
160 
162 
164 
166 
170 
1 
1 
1 
1 
1 





seeseeaaaggsessassaasgsssseaagsssaeaeeses 


570 DSWR szADDRESS OF SWITCH ge 
177570 DDISP : s ADDRESS OF DISPLAY REGISTE 
77560 ss TTY KBD STATUS 
77562 TY KBD BUFFER 
177564 SUTTY PRINTER STATUS REG. ADDRESS 
177566 zz TTY PRINTER BUFFER SS 
000 33 CON INS FI 
71 002 _. CHARACTERS REQUIRED 
72 23 s«OO2 2 Daa L CHARS. AFTER A ‘LINE FEED" 
73 000 TERMINAL. Ay VAILABLE*’ FLAG (BIT<07>=0=YES) 
74 000000 DEF INED 
76 000000 
$30 000000 
000000 
000000 0 
: 000000 R OF ‘ae 
13 oN 377 <207><377><377> 3: 
16 077 “ASCII ?/ es 
17 015 ASCII C45> 
20 012 000 eASCIZ <12> 


iauneeetentenenacenseeeeeeeenenesenenanetanannnantsenensenenees 


; * SBTTL APT MAILBOX~-E TABLE 


£ ERRAAAAARAERERERERAEREEEAERERERAAERAEERRERERRERERRERERERREREREEE 


SMAIL: ; sAPT MAILBOX 
SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
SFATAL: {WORD AFATAL :FATAL ERROR NUMBER 
STESTIN: .WORD ATESTN ::TEST NUMBER 




















L 2 
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APT MAILBOX-ETABLE 
001 SPASS: .WORD APASS ;;PASS COUNT 
ped SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
1 SUNIT: .WORD AUNIT ;3;1/0 UNIT NUMBER 
001 GAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
00124 SMSGLG: .WORD AMSGLG ;;MES pea dh 
00124 SETABLE: 3:APT ENVIRONMENT TABLE 
00124 000 SENV: -BYTE AENV : sENVIRONMENT BYTE 
00124 000 SENVM: .BYTE NVM ;;ENV ITs 
001244 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001 $28 000000 SUSWR: .WORD AUSWR ;;USER SWIT 
001250 000000 SCPUOP: .WORD ACPUOP ;:C he FB. 
* BITS 15-11=CPU TYPE 
sk 11/046=01, 11/05=02,11/20=03,11/40=04 ,11/45=05 
3% 11/70=06 ,PDQ=07 ,Q=10 
;* BIT ra TIME C 
:* BIT 9=FLOATING POINT PROCESSOR 
.t BIT 8=MEMOR MENT 
001252 000 1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
001253 000 SMTYP1: .BYTE AMTYP1 :;MEM. TYPE 
3 MEM.TYPE BYTE <= (HIGH BYTE) 
e = 
3* NS 
el NSEC 
001254 000000 WORD ::HIGH ADDRES 
MEM.LAS -=5 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
001256 000 -BYTE s:HMIGH AD -5. BYTE 
001257 000 BYTE 3 MEM.TYPE 
001260 000000 - 3: :MEM.LAST SS ,BLK#2 
bE 4 000 BYTE ::HIGH ADDR -5-BYTE 
00126 000 BYTE 3 :MEM. TYPE 
001264 000000 ‘ ::MEM.LAST ADDRESS ,BLKA#3 
001508 000 -BYTE : sHIGH_AD S.BYTE 
00126 000 BYTE 37 MEA. 
sotsos | WSnoee - WORD 3 MEM. BLKA4 
001272 120254 WORD sé3 BUS PRIORITY41 
001276 000000 WORD 331 TORA2BUS PRIORITYA2 
001276 176700 - WORD 33 
001 000000 WORD 33 
OO ene 000000 WORD 33 
001 000000 WORD 33 
001 000000 - WORD 23 CRIPT 
001310 000000 - WORD 33 
001312 000000 WORD ss SCR 
1314 sisi WORD : :DEVICE DESCRIPTOR WORDS 
131 WORD 33 C 
1 000000 WORD Bg 
sid 000000 WORD 3 DEVI RIPTOR oe 
id r 000000 WORD : :DEVI SCRIPTOR WORDS 





>o 


ed ond ond 


wes 


se 
SESRONTESE ES 
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-SBTTL USER DEFINED TAGS 
000000 CTLFG: .WORD 0 sCONTAINS CONTROL-C FLAG 
000000 CHGADR: .WORD 0 :CHANGE RH/RM BUS ADDRESS = -1, NO CHANGE = 
000000 XXDP: .WORD 0 3 THE LOW BYTE tars THE DRIVE NUMBER FROM WHICH 
‘1 PROGRAM WAS LOADED ic eae BYTE CONTAINS THE 
:*XXDP* DEVICE CODE FOR THE 
000 LSTRK: .BYTE 0Q :LO BYTE = 0 
015 BYTE 13. HI BYTE 5 <GONTAINS Lag! TRACK ADDRESS OF UNIT 
;UNDER TES 


;THE REGISTER INPUT BUFFER IS USED FOR 
:STORING DRIVE STATUS 


GE TBUF : 
sREGISTER INPUT BUFFER 
RMCS1I: 











; CONTROL , STATUS REGISTER #1 
COUNT REGISTER 










aug 


™ 








gggessaaagasssseee3es 


- 
- 
~ 


=) 


ee ee ee ee ee ee eee 
A) 


eae) oo ek 


PPP PPLLPO ES 











.WORD 0 
000000 “WORD 0 
000000 RMBAI: .WORD 0 “BUS ADDRESS REGISTER 
000000 RMDAI: .WORD 0 “DISK ADDRESS REGISTER 
000000 RMCS21: .WORD 0 ; CONTROL STATUS REGISTER #2 
000000 RMDSI: .WORD 0 RIVE satus REGISTER 
900000 RMER1I: .WORD 0 TERROR REG #1 
RMASI: .WORD 0 SATTENTION SUMMARY REGISTER 
900000 RMLAI: .WORD 0 *LOOK AHEAD REGISTER 
RMDBI: .WORD “DATA 
000000 RMMR1I: .WORD 0 *MAINTENANCE REGISTER #1 
000000 RMDTI: .WORD “DRIVE TYPE REGISTER 
RMSNI: .WORD : R REGISTER 
RMOFI: .WORD 30 ISTER 
RMDCI: .WORD 0 “DESIRED CYLINDER REGISTER 
RMHRI: .WORD : GISTER 
RMMR2I: .WORD ‘MAINTENANCE REGISTER #2 
RMER2I: .WORD : ST 
000000 —RMECTI: .WORD ; 
900000 emeari “WORD : DRESS PE TENSTON REGISTER 
000000 aa “WORD ; , STATUS REGISTER #3 
sTHE REGISTER OUTPUT BUFFER IS USED FOR 
“ASSEMBLING DATA GOING TO REGISTER 
PUTBUF : 





meets TER res aerren 







$10: .WORD sCONTROL, STATUS REGISTER #1 
WORD “WORD T REGISTER 
RMBAO: .WORD *BUS ADDRESS REGISTER 
RMD. “ WORD “DISK ADDRESS REGISTER 
WORD CONT STATUS REGISTER #2 
RMD WORD “DRIVE Status REG STER 
RMER10: .WORD “ERROR R UF ERs 
RMASO: .WORD “ATTEN NTION SUMMARY REGISTER 
“WORD “LOOK AHEAD REGISTER 
WORD *DATA 
“WORD 0 “MAINTENANCE REGISTER #1 
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INED TAGS 
144 RMDTO: .WORD DRIVE TYPE 4 
144 : WORD ;SERIAL NUMBER REGISTER 
144 » WORD SOFFSET REGISTER 
bees «WORD ;DESIRED CYLINDER REGISTER 
1450 «WORD : HOLDING neat st R 
bE 53 » WORD ;MAINTENANC a #2 
001454 » WORD sERROR REGISTER # 
001456 » WORD sECC POSITION REGISTER 
001460 » WORD 7ECC PATTERN REGISTER 
001462 WORD 0 ;BUS ADDRESS EXTENSION ones TER 
001464 «WORD 0 :CONTROL, STATUS REGISTER # 








sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
: THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 

FIRST WORD CONTAINS THE wie OF THE DEVICE UNDER TEST 
SIN THE a ZERO WORD IS A BLANK AND REPRESENTS THE 


000000 -  TSTQUE: .WORD 0 : CONTAINS peu es POINTER 
-BLKW 5. sTEST QUE FOR DEVICES sche yest 





000000 «WORD ;TABLE TERMINATOR GOES 
? ALL 8. DEVICES ARE UNDER TEST. 


sMEDIA ENABLE IS SET_IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
sFOR THE UNIT UNDER TEST, OTHERWISE IT IS ZERO. 
MEDENB: .WORD 0 sMEDIA ENABLE 















:SKIP SECTOR FAILURE ENABLE IS SET IF THE '‘SSF'' BIT SHOULD BE 
:SET IN THE FIRST HEADER WORD WHEN THE FE CYLINDERS ARE BEING 
000000 aSre NB: .WORD 0 :SSF ENABLE 
sLOCATIONS "‘ASNDC’’ AND "‘ASNDC’’ CONTAIN THE CYLINDER, TRACK AND SECTOR 
| “ADDRESS ASSIGNED BY THE BAD SECTOR MODULE. 
000000 ASNDC: .WORD sASSIGNED DESIRED CYLINDER 
000000 ASNCA: .WORD * ASSIGNED K, AND SECTOR 
000000 CLKADR: .WORD *UNIBUS ADDRESS OF KwW11 CLOCK 
000000 CLKVCT: .WORD “VECTOR ADDRESS OF KW11 CLOCK 






sTHE GET -— T 4 CONTAINS A BYTE LIST OF REGISTERS WHICH 


SARE READ B T SUBROUTINE. THE LIST IS TERMINATED BY 
*A NEGATIVE "ay WE 
GETINX: .BLKB 23. :GET INDEX TABLE 


-THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
“ARE WRITTEN By THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
ZA NEGATIVE BYT 

PUTINX: .BLKB 23. :PUT INDEX TABLE 


sPUT TAGS HERE 


CZRNFAO RM8O FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 8 
ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS T 
INF ORMAT ION 5 

: SLOCATION SITEMB. T 

;*NOTE1: IF 

: ®NOTE2: EACH 















EACH ERROR THAT CAN OCCUR. 
7 on tke 


FOUND IN 
THE TABLE IS PERTINFNT. 
S (SERRPC). 





3* EM 
3% DH : :POINT 
3* DT ::POINTS TO THE DATA 
:* OF *:POINTS TO THE DATA FORMAT 
, 001604 SERRTB 
4 sERROR 1 WRONG UNIT SELECTED 
001604 070002 EMT1 
001 07414 EHT1 
00161 074264 EDTi 
001612 074354 EFT1 
4 
3 sERROR 2 DEVICE WENT UNAVAILABLE 
001614 070006 EMT2 
001616 074140 EHT1 
00162 074264 EDT1 
001 074354 EFT1 
ZERROR 3 DEVICE WENT NONEXISTENT 
070014 EMT3 
site on 
o74384 Hat 
ZERROR 4 CONTROLLER NOT READY 
70022 EMT4 
074140 EHT1 
P4264 EDT1 
074354 EFTI 
ZERROR § DRIVE NOT READY AND GO NOT RESET 
30 EMTS 
ree a 
74 $f EFT1 
sERROR 6 UNEXPECTED VALUE FOR “‘ATA’’ STATUS 





DA ATA 
TAINS wi} POINTERS EXPLAINED AS FOLLOWS: 


SEQ 0027 


ee ee 
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ERROR POINTER 


TABLE 


074140 


074854 


ATE 


074354 


070070 
Gries 


74384 


s ERROR 


MT7 


BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 


DRIVE NOT READY BUT GO IS RESET 


GO NOT RESET BUT DRIVE IS READY 


INCORRECT FUNCTION CODE 


PARITY ERROR READING REMOTE REGISTERS 


TRANSFER ERROR IS INCORRECT 


INCORRECT WORD COUNT 





SEQ 0028 


| 


001744 
001750 


175 
09178 


74140 


074854 


O74 10 


074854 


07012 
07414 


074584 


070136 
074140 
Loe 9 
074354 


74140 


074354 


O76140 


70 
74 


070156 
syadee 
ra38e 


a 


74384 


070176 


: ERROR 
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ERROR POINTER TABLE 


INCORRECT BUS ADDRESS 


INCORRECT LBT STATUS 


INCORRECT AOE 


INCORRECT DISK ADDRESS 


INCORRECT CYLINDER ADDRESS 


INCORRECT WLE STATUS 


INCORRECT UPE STATUS 


SE@ 0029 


E 
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ERROR POINTER TABLE 


ae Ore aee EHT1 
EDT 
EFT 





sERROR 25 INCORRECT WCF STATUS 
002044 O98 ae 
002046 oral EXT 
00 23 rieee EDT 
00205 74 EFT 
64 
o2 sERROR 26 INCORRECT WCE STATUS 
002054 07216 EMT26 
074140 EHT1 
00 OE 94 EDT1 
00 074354 EFT 
67 
re sERROR 27 INCORRECT MDPE STATUS 
002064 070226 EMT27 
00 074140 EHT1 
00 D LOLS 94 EDT! 
002072 074354 EFT 
70 
al INCORRECT DCK STATUS 
002074 070236 
76 074140 
09 100 preg? 
102 074354 
73 
e sERROR 31 INCORRECT ECH STATUS 
104 070246 EMT31 
1 74140 EHT1 
1 Paes EDT 
211 74354 EFT 
A 
ie sERROR 32 DLT SHOULD NOT BE SET 
114 07025 EMT32 
11 7414 EHT1 
1 ms EDT! 
1 74354 EFT 
79 
3 sERROR 335 MXF SHOULD NOT BE SET 
124 070 EMT33 
doeiee O7eis0 NT 


ES A 
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ERROR ~ INTER TABLE 


Gosis2 074854 


RAN 


07027 
07414 


074854 


074140 
074854 


070316 
074140 
oes 9 
074354 


070326 
074140 
Lots 
074354 





DTE SHOULD NOT BE SET 


INCORRECT HCRC STATUS 


INCORRECT HCE STATUS 


INCORRECT FER STATUS 


DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 


LOST *MOL’’ DURING PACK ACKNOWLEDGE 


UNSAFE ERROR DURING PACK ACKNOWLEDGE 


SEQ 0051 


— ee ee ee 
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CZRNF 
ERROR POINTER TABLE 
002222 074354 


mg fue 


002234 07037 
002236 $74140 


i o7a5se 


070406 
pit 
52 074584 


See 70416 
e 56 074140 


Sasa) rete 


115 
| 
17 
002264 070426 
Se O72 129 
27) 974964 
118 
119 
120 


74 
a seis 
is 
aie 070444 
74140 
% 8 
1 74 


EFT 





"“OPI'’ ERROR DURING PACK ACKNOWLEDGE 


""RMR'’ ERROR DURING PACK ACKNOWLEDGE 


"*ILR’* ERROR DURING PACK ACKNOWLEDGE 


“*ILF’* ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT IAE STATUS DURING SEEK COMMAND 


SEQ 0032 


a NS ef 


H 
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ERROR POINTER TABLE 


124 
19? sERROR 52 OPI ERROR DURING SEEK = MEDIUM IS NOT ON LINE 
002314 07045 EMT52 
09 : O7eie eur 
Od 9 EFT1 
127 
1 sERROR 53 OP] ERROR DURI Ne SEEK = MEDIUM IS ON LINE, ASSUME 
! 3 ON CYLINDER LATCH DIDN'T RESET 
002324 eth. EMTS3 
009396 74140 eur 
0023 Os 9 EFT? 
131 
132 sERROR 54 SEEK INCOMPLETE ERROR DURING SEEK COMMAND 
Oe see 070512 EMT54 
002336 Oraaee EHT1 
i rt ae reese EDT1 
002342 074354 EFT 
134 
13 sERROR 55 DEVICE CHECK DURING SEEK COMMAND 
002344 070522 EMTSS 
002346 074140 EHT1 
002350 oreee EDT1 
002352 074354 EFT1 
137 
is sERROR 56 PIP IS STILL SET AFTER SEEK = SKI IS RESET 
002354 070534 EMTS6 
328 074140 EHT1 
oo 074264 EDT1 
362 074354 EFTI 
140 
Mh sERROR 57 ATA DID NOT SET DURING SEEK COMMAND 


070552 EMT57 
eg tre BH 
2984 EFT 


1 
144 sERROR 60 IVC ERROR DURING SEEK COMMAND - LOST 
iF : VOLUME VALID 
3% 70562 EMT 
76 7414 EHT 
4 74264 EDT1 


Z 
R 


002402 074354 


ci 


074140 
074354 


070634 
074140 
ots 
074354 


070644 
074140 
Loe 9 
074354 


at 


74354 


70704 
at 
74384 


7071 
7414 


: ERROR 


EFT1 
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POINTER TABLE 


ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
VOLUME VALID IS STIL SET 


SSE SHOULD NOT BE SET 


DRIVE DID NOT DETECT “*IVC’’ ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMER1 


UNEXPECTED ERROR SET IN RMER2 


SEQ 0034 


C 
ER 


AO RM8O FC 
TER TABLE 


osre 074884 


POIN 


00 500 874120 


074884 


874120 


074854 


14 070750 
16 074140 


2 74854 


070766 
6 074140 
074264 


32 o7438e 


002534 071004 
ean 
bosses a7e3se 


4 07101 
sine 
18 


54 071034 
56 074140 





43 
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ERRONEOUS ‘‘IAE’’ ERROR DURING RECALIBRATE 


"“ILF’’ ERROR DURING RECALIBRATE 


"OPI"’ ERROR DURING RECALIBRATE DUE TO ‘MOL’ = 0 


“OPI°" ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 





"*IVC"* ERROR DURING RECALIBRATE - “‘vv"* = 0 


ERRONEOUS “‘IVC’' ERROR DURING RECALIBRATE - “‘VV"' = 1 


"SKI'’ ERROR DURING RECALIGRATE 


SEQ 0035 


008862 


10 
Hf 
12 


Hs 


074854 


874140 


074884 


071056 
074140 


074354 


071074 
074140 
onsee 
074354 


071112 
074140 
074264 
074354 


071134 
074140 


074384 


07115 
7414 
74264 


100 
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“DVC'* OCCURRED DURING RECALIBRATE 


LOST ‘MOL'’ DURING RECALIBRATE = ‘‘OPI"’ = 0 


LOST ‘‘Vv"’ DURING RECALIBRATE = “‘IVC’’ = 0 


“ATA'’ DID NOT SET DURING RECALIBRATE 


‘OM’ DID NOT RESET DURING RECALIBRATE 


*PIP’’ IS STIL SET AFTER RECALIBRATE 


UNEXPECTED "“ILR'* ERROR DURING RECALIBRATE 


SEQ 0036 


002652 


074354 


0711 
58. & 


074884 


07117 
07414 


074854 


071212 


at: 


071224 
074166 


074374 


71232 
741 
743 
74374 


3 240 


; ERROR 


: ERROR 


sERROR — 


EFT1 





113 
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ERROR POINTER TABLE 


UNEXPECTED ‘'RMR'' ERROR DURING RECALIBRATE 


“"UNS'’ ERROR DURING RECALIBRATE = AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEOUT-NED STATUS FAILURE 


UNUSED 


SEQ 0037 


aS 


074354 


071276 
074140 


074264 
074584 


74140 


74384 


a 


; ERROR 


121 
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ERROR POINTER TABLE 


RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNIBUS 


RMAR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 


SEQ 0038 
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ERROR POINTER TABLE 


3 <s 
a 


TBE pe: 


iat 


07135 
07414 


074854 


874120 


074354 


ZERRC? 


124 
EMT124 
EHT1 


125 


EMT125 
T1 


RMEC2 NOT INITIALIZED BY UNIBUS 


RMMR2 NOT INITIALIZED BY UNIBUS 


RMCS1 NOT CLEARED BY CONTROLLER CLEAR 


RMBA NOT CLEARED BY CONTROLLER CLEAR 


RMCS2 NOT CLEARED BY CONTROLLER CLEAR 


RMER1 NOT CLEARED BY CONTROLLER CLEAR 


RMAS NOT CLEARED BY CONTROLLER CLEAR 


—- —— 


SEQ 0039 


578 


124 07145 
Sis free 
1 2382 


071 
07414 


074854 


071474 
O76e6e 


76586 


074140 


074354 


071520 

oR by 
74 

074354 
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ERROR POINTER TABLE 





SEQ 0040 


RMMR1 NOT CLEARED BY CONTROLLER CLEAR 


RMDS NOT CLEARED BY CONTROLLER CLEAR : 


RMEC2 NOT CLEARED BY CONTROLLER CLEAR 


RMMR2 NOT CLEARED BY CONTROLLER CLEAR 





RMCS2 NOT CLEARED BY ERROR CLEAR 


RMCS1 NOT CLEARED BY ERROR CLEAR 
RMCS1 NOT CLEARED BY DRIVE CLEAR | 


RMDS NOT CLEARED BY DRIVE CLEAR 
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ERROR POINTER TABLE 


299 


me 


071570 
O76e64 


76884 


071600 
074140 


074354 


071610 
074140 


074354 


071920 
74140 


074854 


a8 pris 





150 


RMER1 NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMMR1 NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 


RMEC2 NOT CLEARED BY DRIVE CLEAR 


MEDIUM NOT ON LINE 


SEQ 0041 


Bae 


07165 
07414 


074854 


74140 


071664 
74 
074354 


071702 
074140 


074854 


71720 
a7 140 


074854 


71732 


74140 


ork 744 
074354 


071756 
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ERROR POINTER TABLE 


DRIVE FAULT 


UNSAFE SHOULD BE SET BECAUSE DVC IS SET 


UNSAFE SHOULD NOT BE SET, AC IS LOW 


VOLUME VALID NOT SET BY PACK ACK 


OFFSET MODE NOT SET BY OFFSET COMMAND 


OFFSET MODE NOT RESET BY RTC COMMAND 


RMOF NOT RESET BY RIP COMMAND 
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C2 
ERROR POINTER TABLE 
5 09 O76e64 
2986 & 


71766 
‘. 06 074440 


osci2 074854 


003414 072 
3H ate 
oses2 074854 


;ERROR 


167 
EMT 167 


RMDA NOT RESET BY RIP COMMAND 


RMDC NOT RESET BY RIP COMMAND 


CORRECTED BUT DOES NOT COMPARE WITH 


OPI SHOULD NOT BE SET 


IvC SHOULD NOT BE SET 


IAE SHOULD NOT BE SET 


NEM SHOULD NOT BE SET 


SEQ 0043 
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ERROR POINTER 


HN tree 


wi 


171 


EMT171 
EXT 


INCORRECT ‘MOL’ STATUS DURING DIAGNOSTIC MODE 


“ATA’’ NOT SET DURING RETURN TO CENTERLINE 


*“ATA’’ NOT SET BY OFFSET COMMAND 


RMER2 NOT INITIALIZED BY UNIBUS INIT 


RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


SELECTED DEVICE IS IN WRITE PROTECT 


CANNOT SET DIAGNOSTIC MODE 


SEQ 0044 
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cZR 
ERROR POINTER TABLE 


03362 O7e8se 


bebe 
NN000C 


072144 
74140 


074854 


072156 
oe? 


076854 


072170 
yale 
ise 


a 


074854 


72214 
ae is 
3 


4 
i 722 
Ss Si 
74264 


“RESERVED FOR POWER MONITOR BIT FAILURE-- 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


‘PIP’ STATUS DURING DIAGNOSTIC MODE 


"WRL'’ STATUS DURING DIAGNOSTIC MODE 


*“SKI"' STATUS DURING DIAGNOSTIC MODE 


"DVC’’ STATUS DURING DIAGNOSTIC MODE 


"vv" WAS NOT RESET BY MAINTENANCE UNIT READY 


SELECTED DEVICE HAS A PERSISTENT *'SKI'* ERROR 


SEQ 0045 
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ERROR POINTER TABLE 
003652 074354 


00 07225 
00 07414 
00 Oe 9 
003672 074554 


003674 072264 
003676 076120 


003702 074854 


EFT? 


210 


211 


212 


213 





“LBC’’ DID NOT SET DURING DIAGNOSTIC MODE 


UNEXPECTED LOSS OF ‘MOL’ = MEDIUM IS OFF LINE 


UNEXPECTED LOSS OF VOLUME VALID - ‘Vv’ = 0 


UNEXPECTED MECHANICAL MOTION - ‘PIP*’ = 1 


UNEXPECTED DEVICE FAULT = ‘DVC’* = 1 


UNEXPECTED SEEK INCOMPLETE ERROR - *'SKI"* = 1 


DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


SEQ 0046 
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427 
638 sERROR 215 DRIVE DID NOT DETECT ‘‘IVC’’ ERROR DURING RECALIBRATE 
744 07235 MT215 
Be He a 
75 74 EFT 
4 
o31 sERROR 216 INCORRECT ‘‘IVC'’ STATUS 
003754 072364 
Bis tie oe 
0037 O7438e EFT 
433 
ree sERROR 217 INCORRECT *‘IAE’’ STATUS 
003764 072374 MT217 
Bee He a 
00377 074584 EFT 
4 
a3 sERROR 220 INCORRECT "WLE’* STATUS 
gars itt a 
004 074 EDT! 
004002 074554 EFT 
439 
rs sERROR 221 INCORRECT *‘OPI"’ STATUS 
004 072414 1 
ir ee a 
b04012 2384 EFT1 
44 
“as sERROR 222 RM80 DID NOT DETECT RMR ERROR 
014 07242 
004 16 ; 4140 
iiss Ht 
074354 
445 
us | sERROR 223 RM80 DI NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 
4 0724 
ee me 
0 74 EFT 





072444 
074140 


076854 


3 


C 


224 


226 


227 


231 
S 


232 
Qe 
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ERROR POINTER TABLE 


SSE NOT DETECTED DURING DATA TRANSFER 


"“SSEI'* NOT RESET BY END OF TRACK DURING DATA TRANSFER 


“SSEI'’ SHOULD BE SET AFTER DATA TRANSFER 


SSE WAS DETECTED W/ SSEI SET 


UNUSED 


UNUSED 


UNUSED 


—— 





470 


71 
004124 07253 
0041 
0041 
0041 


4 

M 

474 
0041 
0041 
00414 
004142 

475 

476 

477 
004144 
004146 
004150 
004152 

478 

479 

480 
004154 
004156 
004160 
004162 

i 
004164 
ae 

170 

004172 


:FRROR 


235 
gs 


234 
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CZRNEAQ RMBO. FCTNL PTS MACRO VO4.00 28-JAN-B2 16:49:32 PAGE 8-22 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


SEQ 004% 


JOUUUL 
NN000C 


072 
074340 


074354 


072570 
74140 


074354 


14 
4 


74354 


250 
ones 
EXT 


EDT] ~ 


EFT] 


251 
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UNUSED 


UNUSED 


UNUSED 


“ATA’’ NOT RESET BY GO WHEN ‘ERR’ = 0 


““ATA’’ NOT RESET BY WRITING RMAS 


ATA’ WAS RESET BY GO WHEN “'ERR'’ = 1 


PROGRAM INTERRUPT WAS NOT GENERATED 


SEQ 0050 


aaa Seu 


004374 


072624 
074152 


sis 


072632 
074140 


074354 


072650 
074140 


Lhe 9 
074354 


72660 
74140 

oreo 
074554 


Lt 
a 
076384 


072712 


; ERROR 


254 
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ERROR POINTER TABLE 


PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 


OFFSET MODE WAS NOT RESET BY WRITING RMDC 


INCORRECT "‘ILF'* STATUS 


INCORRECT ‘‘ATA’’ STATUS 


INCORRECT “‘ILR’’ STATUS 


INVALID IAE STATUS DURING SEARCH COMMAND 


"*IVC** WAS NOT DETECTED DURING SEARCH COMMAND 


SEQ 0051 


C 
E 


NTER TABLE 


a arses 
0044 
“ERE Be 


544 
545 
546 

4 72764 

4 74140 

44 ret 

2 074554 


. “4 4 


262 
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DRIVE EXECUTED SEARCH WITH ERROR SET 


"*IVC’’ ERROR DURING SEARCH =~ LOST VOLUME VALID 


ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID 


“‘LBC’’ ERROR NOT SET DURING DIAGNOSTIC MODE 


“'SKI"* ERROR DURING SEARCH COMMAND 


DEVICE FAULT (DVC) DURING SEARCH 


SKI SHOUL 
ADDRESS I 


HAVE 
TOO 


BE 
LARGE 


EN SET BECAUSE CYLINDER 


SEQ 0052 


en EM 
7e88e 


5 
004504 07307 
074140 
51 74 
51 74354 
563 
566 
514 073106 
51 74140 
320 074 
004522 074 
567 
568 
569 


004524 073124 
Sues tele 
5 074586 


2 731 
7414 
74 
74 
74 
75 
57 
5 
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RROR POINTER TABLE 


OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN'T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 


PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF_ ERROR 


- COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 


“OPI'’ ERROR DURING DATA TRANSFER BECAUSE *OL'* WAS 


SEQ 00> 


OOOO EE KL 


— 


=o 


aH 


074884 


me 
o7e3se 


073224 
074140 


074354 


074140 
0 


074354 


073244 
74 
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ZERO 


) RUN TIMED OUT 


“"IVC*" ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


ERRONEOUS ‘‘IVC’’ ERROR DURING DATA TRANSFER - VOLUME 
IS VALID 


“*ILR’’ ERROR DURING DATA TRANSFER 


“*ILF’* ERROR DURING DATA TRANSFER 


""RMR’’ ERROR DURING DATA TRANSFER 


SEQ 0054 


——— ee —— 
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PER 
Seer 
NSa 


Seer 
wexe 


~ 
— 
& 





EFT 


INCORRECT “‘IAE’’ STATUS DURING DATA TRANSFER 


“SKI"* ERROR DURING DATA TRANSFER 


DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 


DEVICE FAULT DURING DATA TRANSFER 


LOSS OF BIT CLOCK DURING DATA TRANSFER 


LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 


UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 


SEQ 0055 


EE 


074160 


076384 


0734 
374160 


074354 


07350 
7414 
74 
74354 





314 


316 
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ERROR POINTER TABLE 


DRIVE TIMING ERROR DURING DATA TRANSFER 


WRITE LOCK ERROR 


ERRONEOUS WRITE LOCK ERROR 


HEADER CRC ERROR DURING DATA TRANSFER 


FORMAT ERROR DURING DATA TRANSFER 


HEADER COMPARE ERROR DURING DATA TRANSFER 


HEADER ERRORS SHOULD NOT BE SET 


— 


ie 
reste 
ee 


e 109 07 at 
“ti a 





325 
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ERROR POINTER TABLE 


DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 


OFFSET MODE NOT RESET BY WRITE COMMAND 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 


SEQ 003/ 


ce ere 


AX 
Se 


SoSs 





332 
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DATA LATE ERROR DURING DATA TRANSFER 


PIP STIL SET AFTER DATA TRANSFER = SKI = 0 


LOST MOL DURING DATA TRANSFER <- OPI = 0 


LOST VOLUME VALID DURING DATA TRANSFER - IVC = 0 


DATA READ DOES NOT COMPARE WITH DATA WRITTEN 


WRITE CHECK ERROR NOT DETECTED 


WRITE CHECK ERROR AT UNEXPECTED ADDRESS 


INCORRECT DATA DURING WRITE CHECK ERROR 


SEQ 0056 


g 
3 


INTER TABL 


S338 
VORE 
~~~ 
Pe 
J 
™ 
&&o 
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““IVC’* ERROR NOT DETECTED DURING DATA TRANSFER 


""FER"' NOT DETECTED DURING DATA TRANSFER 


"HCE’’ NOT DETECTED DURING DATA TRANSFER 


"BSE’* NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED W/ HCI SET 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH - “‘IVC’’ = 0 


st@ 


YU>'v 


ee — 








“ATA’’ DID NOT SET DURING SEARCH 


PROGRAM TIMEOUT WHILE TESTING RMLA 


LOOK AHEAD TEST FAILS 





BSE SHOULD NOT BE SET 


sPUT ERROR TABLE HERE 


SEQ 0060 


ee eee 
—E . 


mec 
zr 


$2 


ee ce Ded eed ceed eed eed =) ed 


PS A 4 oN ig 
CNAOUEWN $0 OO NOULWN"OOONOULSWwR— a5 


® 


: 
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E USAGE 


-S8TTL ERROR TABLE USAGE 


:THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
sNUMBER, I.E.. 


EMT - ERROR MESSAGE TABLE ADDRESS 
EHT = ERROR HEADER JABLE ADDRESS 
EDT - ERROR DATA TABLE ADDRESS 

EFT = ERROR FORMAT TABLE ADDRESS 


‘THE EMT ohh IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRING> 
3FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
:TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
:NO MESSAGE TO BE TYPED FOR THE ERROR. 


i SIMILARLY THE EHT, EDT, AND ffl ENTRIES ARE ADDRESSES OF TABLES 
HEADER A. AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
*IN R TABLE MAY OR MAY ¥ NOT HAVE AN ASSOCIATED LINE OF 
;DATA HOWEVER att DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
ER. THAT 1S, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 
“BUT A BATA ALINE Is NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 













































;MUST ALSO HAVE A 

:IN SUMMARY, 

: EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

: EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
: OF MESSAGE TRINGS, HEADERS, DATA OR FORMAT. 


SEQ 0061 


a a i I LL EL LLL LLL LLL LL LLL LLL 


TS A TS Nn es aN 
ee wre 


mea 


3 


Our euin— ~> 


FRIIRDINDI cd ed ed ed ed et od ot 6d 
WN Oo OONAMnP WM @OOON 


- 


On 


NO 


S 


S 
2 
Ox 


Re 


a: 


005452 


a0 HE 


oooodoooo 
eee ed ome) wwe coh mand eed xccd onad 


petetiietitets 
ARSE SN 


3 
Be E 
a ano 


005650 


SNS 


oo=— 
eoeb wok ae 
wie : : . 


005360 


177777 


001330 


FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 10 
USAGE 


001330 





: THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 

BADTMO: mov (SP) sO : SAVE PC WHERE THE TIME OUT OCCURED 
CMP (SP) +, (SP)+ *RESTORE STACK POINTER 

TYPE 5$ ‘TYPE ASCIZ STRI 

BR =*GET OVER THE ASCIZ 

,ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 






















ut 
; MOY . RO,-(SP) sSETUP FOR TYPING OUT PC 
:PUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
[TO STOP ON UNEXPECTED TIMEOUT. 
.SBTTL START OF PROGRAM 
START1: MOV #~1, CHGADR sCHANGE RH/RM BUS ADDRESS 
BR START2 
START: CLR CHGADR :NO CHANGE IN ADDRESS 
START2: NOP 
INC #0, sTTY LOOP, WAIT FOR INCREMENT 
RESET — SRESET THE WORLD 
.SBTTL INITIALIZE THE COMMON TAGS 
[CLEAR THE COMMON TAGS (SCATAG) AREA 


SRase 


Se 
&y 
bone 
a 
CT 
oomg 
> 
brea, 
La] 
m 


a, oe FOR SCOPE ROUTINE 
Ay dee FOR ERROR ROUTINE 
VECTOR FOR TRAP CALLS 

FAILURE VECTOR 


te 
ee% e@e Se Ge 
nm —tfr— I COAT "sts fies "ee 
SaSE sae acesag 
Snes=S2 

| Oe 

been 7 

La | La | 

mm m 

~ 

“ z 

ya > +] 

S380 
am 
MmDeue 
nD 

mit os 
a 

S Be 

3 

—” 

g 












— 

o oe 
~¥ 
P°] 
~—€ 


SEQ 0062 


wis 


o~n 


Rao BRUNLSS 
RVRRRON 


SRSS5 


eandd saacd oe med cee ed eed aed com ed ed 
&- 


RRRG 


_—— 
i 


o— 
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OMMON TAGS 
01 008 005660 64$: wy #65$, (SP) 3;SET UP FOR TRAP RETURN 


of 176 001154 65$: MOV y#POINT TO SOFTWARE SWR 
12737 174 001156 MOV api sPREG D DISP 
012637 66$: MOV (SP)+, SAERRVEC ”  :RESTORE ERROR VECTOR 






5037 001230 CLR SPASS ::CLEAR PASS COUNT 
132737 001243 BITB  #APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
00 405 BEQ 67$ *YES,USE NON-APT SWITCH 
012 001244 001154 . MOV ASSWREG, SWR +:NO,USE APT SWITCH REGISTER 
:SETUP "'TIMEOUT’’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
012737 005344 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
012737 000300 000006 MOV WPR6,ERRVEC+2 :LEVEL 6 
.SBTTL TYPE PROGRAM NAME 
;3TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
005227 177777 INC 4-1 3sFIRST TIME? 
001033 33 H IF NO 
022737 033756 000042 CMP NDAD.@#42 0 ;ACT~11? 
1427 BEQ :*BRANCH IF YES 
104401 005762 TYPE 9$ ii TYPE ASCIZ STRING 
000424 BR sAGET 0 OVER THE ASCIZ 
-269$: .ASCIZ <CRLF>@CZRNFAO - RMBO FUNCTIONAL TEST, PT 3a<CRLF> 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
005737 000042 4 > :ARE WE RUNNING UNDER XXDP/ACT? 
001012 0$ * :BRANCH IF YES 
123727 001242 000001 NV, A1 3ARE WE RUNNING UNDER APT? 
001406 : BRANCH IF YE 
023727 001154 000176 SUR. ASUREG 3 SOF TWARE SWITCH REG SELECTED? 
1005 1$ : SBRAN 
104407 se *:GET SOFT-SWR SETTINGS 
112737 000001 001150 708: #1, $AUTOB ::SET AUTO-MODE INDICATOR 


>THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
SPAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 


sCLEAR ‘XXDP° LOAD DEVICE STORAGE 
116,806) ;LOADED FROM AN RM8O ? 





5037 001332 
i 7 000016 000041 
1 





1121 
737 0 001332 a#40,XXDP GET DEVICE INDICATOR AND NUMBER 
i 7 7 001 #7 .XXDP ives! VALID NUMBER 
1 6 001332 XXDP DEFAULT TO DRIVE 0 
005 7 000042 1$: ante CHAIN OR ACT11 AUTO ACCEPT ? 
1425 $ “BR IF NETHER 
104401 006144 73$ 33 TYPE ASCIZ STRING 
000412 23 “GET OVER THE ASCIZ 
55738: <CRLF>/NOT TESTING DRIVE / 
005046 -(SP) :CLEAR WORD ON STACK 
11371 001332 XXDP, (SP) :GET, DRIVE ADDRESS 
001 1 “ONLY 1 CHARACTER 





47 1 

48 

49 

50 

51 10 

28 14 

5 1 
2 
44 

33 44 

38 oeess 

57 54 

58 55 

59 


cee Be 
ero Ss 


S 
3 


5 ie & 


SSVSSHISARANASSRLIEARS 


Baas 









vo 







ate 
+ 


$$: 








o 





= 






+++ 
Os 


4. ¢. 4: 






_>_+_+ 


> 
PRC 





?. 





QESRASLSSELKAEALT 


+ 


o% 


006460 


ae 
104401 
000410 
ean 
1 


000 
eg 
000432 


005737 
o01537 





| CZRNFAO RM8O FCTNL PT3 MACRO V04.00 
GET VALUE FOR SOFTWARE Sw! 


TCH REGIST 
001217 
177777 
006224 
001332 
006264 
000042 
000377 001300 
000200 001243 
001276 
067 
067344 001300 
001217 
067236 
0 000010 
10 
12 
1 000010 
004000 000000 
7062 32 
0026 26 
024026 000026 
067067 


2$: 


»75$: 


ois: 


;;76$: 


$$: 


sCHECK FOR AUTO MOD 
an, 


 crcadiags 16:49:32 PAGE 10-2 


-BYTE 
TYPE 


INC 


TYPE 


BR 
eASCIZ 





BR 
eASCIZ 


TST 


BEQ 
MOV 


SEQ 0064 


0 :SUPRESS LEADING ZEROS 
sour 3; CR-LF 

§ [GET NUMBER OF DRIVES 

4-1 ;FIRST TIME THRU HERE ? 
75$ $i TYPE ASCIZ STRING 


4$ “GET OVER THE ASCIZ 
<CRLF>/TO TEST DRIVE / 


;CLEAR WORD ON STACK 
:GET DRIVE ADDRESS 
3; TYPE Bal ADDRESS 


1 Cc 

0 :SUPRESS LEADING ZEROS 
76$ *sTYPE ASCIZ TRING, 

S$ *:GET OVER T 

7, HALT PROGRAM, CLEAR LOC. 4 


- (SP) 
XXDP,, (SP) 


40 AND AND. RESTART PROGRAM. /<CRLF> 


OR STANDALONE MODE 
sRUNNING IN AUTO MODE ? . . 
STANDALONE 


BR IF 
#377 , SDEVM 3SET DEVICE MAP FOR ALL DRIVES 


sPROGRAM IS RUNNING IN AUTO MODE ~ SEE IF SIZING IS ALLOWED 


S12: 





B1T6 
BNE 







#177. SENVM sSIZING ALLOWED ? 

1 3sNO 

R1 sSTART FROM DRIVE 0 

SBASE RO LOAD THE BASE ADDRESS 

»SYSTAT “TYPE "UNIT STATUS: ° 

ATNTBL(R1) ,SDEVM -1S DEVICE PRESENT IN MAP ? 

11$ : JE NO 

SCRLF *CRoL 

R1,-(SP) SAVE R1 FOR TYPEOUT 
*GO TYPE--OCTAL ASCII 

be $3 TYPE 2 DIGIT(S) 
“SUPPRESS LEADING ZEROS 

“TYPE 4 BLANKS 

#CLR.RMCS2(RO) 

Ri nate 

Se ou 


inva. eRMCSI(RO) 

80,108 ; 
#20026, RADT (RO) 
#24026 .RADT (RO) : 


" ao. 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 












98 6 27 010000 000012 2$: BIT WMOL.RMDS(RO) :1S MEDIUM ON LINE ? 

99 41 BEQ “BR IF NO 

33 | 7 

10 104401 067121 3$: TYPE NOTPRS sDRIVE NOT PRESENT 

is ooeees 000402 BR 5g *CHECK NEXT DRIVE 

1 104401 067136 4$: TYPE NOTAVL sDRIVE NOT AVAILABLE 

106 096 5 1461 7 067344 001300 5$: BICB ATNTBL(R1),$DEVM “CLEAR DEVICE FROM BIT MAP 
19 5 BR 11$ sCHECK NEXT DRIVE 

1 104401 067155 6$: TYPE UNTOF F sDRIVE OFFLINE 

110 008866 196 49) eared 001300 BICB #ATNTBL(R1),.$DEVM “CLEAR DEVICE FROM BIT MAP 
11) 4 000413 BR 9$ :PRINT DRIVE TYPE 

148 57 5737 001332 7$: XXDP :LOADED FROM RM8O ? 

114 1406 BS NO 

115 1 001332 XXDP,R1 ‘IS THIS THE DRIVE ? 

116 1 1003 sBR IF NO 

8 4 i 067104 gh ODEV “DRIVE IS LOAD DEVICE 
11 
1 104401 0671 8$: TYPE §,UNTON :DRIVE ONLINE 

121 4 104401 06724 9$: TYPE ,BLNKS2 ‘TYPE 2 BLANKS 

1 ; 104401 TYPE “PRINT DRIVE TYPE 

3 10$:  .WORD 0 “MESSAGE ADDRESS HERE 

125 5201 11$: R1 s INCREMENT THE DRIVE ADDRESS 
1 127 000007 R147 SALL DRIVES ARE CHECKED ? 

1 1$ ‘BRANCH IF NOT 

1 104401 001217 12$: :CR=LF | 

1 Opees0 boots? 007332 | : JUMP TO COMMON START 





a 
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z 
wv 
> 
























1 .SBTTL STANDALONE INPUT ROUTINES 
¢ G06634 STANDALONE : 
4 54 004737 063670 JSR PC. STKINT s INITIALIZE CONSOLE 
§ 906660 005227 177777 INC #1 sFIRST TIME THRU HERE ? 
f 1023 BNE 2$ :BR IF NO 
2 :SEE IF OPERATOR WANTS HELP TEXT 
11 006666 1 06$110 TYPE § ,MSHELP sWANT HELP ? 
1 104471 i RDCHR *GET RESPONSE 
1 74 O12 1176 MOV (SP)+,$TMP1 *SAVE AND ECHO RESPONSE 
1 F Z 1176 000131 CAP STNPI rary [WAS IT A YES RESPONSE ? 
16 710 104401 001176 TYPE  ,$TMP1 ‘TYPE *y* 
1 714 104401 104254 TYPE HELP SYES = TYPE HELP TEXT 
18 000414 BR 
19 104401 067232 1$: TYPE 4N sTYPE °N’ 
104401 00121 TYPE g§CRLF “CRLF 
1 006 07 BR 
$ _ sSee IF USER WANTS TO CHANGE UNIBUS ADDRESS 
5 Soersc 005737 001330 ? TST CHGADR : CHANGE RH/RM BUS ADDRESS ? 
740 001457 BEQ “BR IF 
74 037 0013 CLR CHGADR [NO CHANGE NEXT TIME 
746 104401 00121 TYPE  ,S$CRLF CRLF 
D DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 
521 ; CNSLO1 :TYPE CURRENT BUS ADDRESS 
ite SBASE ,- (SP) 72 SAVE FOR TYPEOUT 
7:60 TYPE=-OCTAL ASCIICALL DIGITS) 
067240 ,BLNKS2 :TYPE 2 BLANKS 
5 006 ‘GET NEW BUS ADDRESS 
0¢ 001176 (SP)+,STMP1 “CARRIAGE RETURN ? 
06 5 *YES=SKIP TO NEXT ENTRY 
i 160000 001176 #160000, $THF' sBASE ADDRESS IN 1/0 PAGE ? 
40 0¢ 066531 02 :TYPE WARNING MESSAGE 
41 OC ‘TRY AGAIN 
4g 001176 001276 4$: STMP1, SBASE “STORE NEW BUS ADDRESS 
4 066573 5$: -CNSLOS 
46 001272 SVECT1, (SP) :GET CURRENT VECTOR ADDRESS 
48 067240 ,BLNKS2 :TYPE 2 BLANKS 
4 *GET NEW VECTOR ADDRESS 
001176 (SP) +, $TMP1 *CARRIAGE RETURN? 
SVES-SKIP TO NEXT ENTRY 
001000 001176 #1000, STMP1 : VECTOR ADDRESS < 1000 ? 
066602 CNSLO4 : TYPE WARNING MESSAGE 
001176 001272 6$: STMP1.S$VECT1 § :STORE NEW VECTOR ADDRESS 





0 To CS tT ttOCCOCO t]tOGCCOCOOHO&OO HH {gC Ct ttttNGCGHHOO CttiCtitHtttHtiiirP CCUHtH0°0tCq fC ttOtOtOQOtCOACOOOOOO OOOO ES SS OO__eE_ _V7OZT 


ee 


z 
rs 
2 


z 
> 
’ 


= 


SEERREESOINS 


LSSSLEFREVLESELEARAVGHLSISSVSARANASSEISALELISSSY 


Ssssoss 


S558 SS59SSS59S555 
o 


Bae 


711 


S SS9s855 
SEA 


~™N 


—— 
as 


~ 


os 


o=— 

ww = 
3=38 
—t 





— ref tN 3 


sy 
wn 


wo 
~~ 
: ek 
—P~ 
e~ 





7 
7 
0014 
1 
1 


000101 





$$: 
8$: 
9$: 


10$: 


11$: 


322 
BBO 


g 82P9°9 





oo 
ie 
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IALOGUE TC INPUT DEVICE NUMBER 
IN #~1 


»CNSLO7 


SCRLF 


SDEVM 
»MSDRVS 


(SP)+,$TMP1 
STMP1 .#°A 





10$ 
#377. SdEvm 
XS1Z 


STMP1,ACR 
2$ 
$TMP1 
STMP1.#°0 


STMP1,#°7 
13$ 
12$ 







Ss 


sFIRST TIME THRU ? 
TYPE INPUT INSTRUCTIONS 
[CLEAR DEVICE MAP 
‘TYPE "DRIVE(S): ° 


;GET RESPONSE 
23 INPUT ‘'A’' ? 

“YES, TYPE "‘ALL'’ AND GO 

“SET DEVICE MAP FOR ALL DRIVES 
AUTO SIZE. 


: CARRIAGE RETURN ? 
iach 
NUMBER >7? 
TCLEGAL INPUT 


foe 


3GET RESPONSE 
1 uate RETURN ? 
. y 


sTYPE ° 

‘ECHO RESPONSE 
:MUMBER < 0 ? 

{NUMBER > 7 ? 

*TYPE ** 27LLEGAL INPUT" 
RETRY 


sR1 = DRIVE NUMBER 
" sSET DEVICE IN MAP 


Hy: ©) 
260 SIZE DEVICES 


SEQ 006/ 


ES ee 
LL LL LLL LLL LLL LLL LLL CLL LS CE LLL CLE EE LE LLL ELL CLE LL 
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zz 
z 
~ 
co 
z 
v 
a 
e 
















































; . i ASSEMBLE TEST QUE FROM DEVICE MAP 
104401 06717 TYPE DRIVES sTYPE DRIVE(S) TO BE TESTED’ 
4 09 O3700 $67 300 MOV $DEVM.RO *RO = DEVICE MAP 
‘ 1 BNE 1$ “BR IF DRIVES TO TEST 
$ 1 1 1 ; ~ COMMA siven “»" 
1 1 ¢ NONE :TY "KONE ° 
8 1 001470 1$: MOV ATSTQUE+2,R1  :R1 = ADDRES FIRST ENTRY IN QUE 
1 Ri. TSTQUE : ALIZ POINTER 
10 é 1 MOV #1,R “R2 = DEV C 
11 D 
\¢ 23: R2,RO0 ? 
14 576 104401 066105 PE 
15 007 010311 R3, (R1) S DEVICE NUMBER IN QUE 
16 oetoe 04kO — + rdf 
o97410 1 1 si TYPE $ 
7611 0 33 bs$ LEADING ZERCS 
17 00741 116361 067344 000001 ATNTBL(R3),1(R1):ENTER ATTENTION BIT IN QUE 
18 007 1 000002 #2,R1 AD ENTRY POINTER 
19 0074 4 00630 3$: R sADVANCE DEVICE POINTER 
20 007426 10 R “DONE ALL DEVICES ? 
1 007430 0014 4 *YES 
é 007432 005 “ADVANCE DEVICE NUMBER 
7434 000756 “ENTER NEXT DEVICE 
4 007436 005011 4$: R1) * TERMINATE TEST QUE 
5 007440 104401 001217 »SCRLF *CR=LF 
7 sSIZE FOR CLOCK 
007 004737 040610 JSR pC .SIZCLK : 
007450 000425 ; 
7452 104401 007460 S$ : 
007456 000413 ; 
<CRLF>/NO "L* OR 
907506 
1 7306 005737 000042 es2 
00751 1 3 © 
7514 1 34 TART START 
7320 137 033746 142 ONTROL TO MONITOR 
5 007524 
75246 000240 sREADY TO START TEST 
% 26 2 001300 vm ANY IVES IN MAP ? 
49 75 3787 000042 ar62 : TOR PRESENT ? 
7 g 1 3% START oJ START 
‘8 rete 090139 eae SGET42 RETURN CONTROL TO MONITOR 
45 007552 105037 001116 STSTNM :RESET TEST NUMBER 
46 75 7 001 STIMES * INITIALIZE NUMBER OF ITERATIONS 
4 1 CTLFG “CLEAR CONTROL-C FLAG 
48 7 :CLEAR ME NABLE 
49 7 PC $TKINT s INITIAL! ¥ 
50 7 3746 4 #PRS,-(SP) *:PUT NEW PS ON STACK 
12746 1 #643$,-(SP) *:PUT NEW PC ON STACK 








Eo - 


a 





a 
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: 
: 
Z 
v 
z 


097618 000002 668: RTI 7:POP NEW PC AND PS 
51 007610 117737 171652 001234 "ss MOVB-«=—s«@TSTQUE,SUNIT LOAD DRIVE NUMBER 


;CLEAR MASSBUS COeTRPT LER SELECT ass Fes ADDRESS TRACK ADDRESS 


SHR Here Bee muon, ASME, CELE MAEEE oee es 
$07 01 00 1334 MOV suit TAG! TAT -LSTRK SET LAST TRACK = 13. 


9 TYPE DRIVE NUMBER TO BE TESTED(SUNIT) 
TYPE SCRLF 











60 007644 104401 001217 . :CR=LF 

61 007650 brett 097036 TYPE MSGDRV ‘Tape 

62 007654 013746 001 Moy $UNIT,-(SP) SAVE 

sz TYPE OR 

TYPOS 3:60 TY 
BYTE ¢ ss TYPE 
“BYTE : = SUPPRES 
CLR R4 “THESE TWO 
DEC R4 ‘WAIT F 
BNE 72 


DEC R4 
BNE 


SEQ 0069 


ws nnn i, ES LL SSeS 


1 


geese 
RRR AR 
eeces 
BSS 


eee cet ec eet) et ds wed eh ed 


SUMS BSSanrauewvesceano UVsw 


SLSSSSssssss 
SSS 


SSEREVEERE SeSASTBeS 





oo 


oo 
eal) od mud od 


1 


o00000 
essssssese 


Ss 


oOoooooco 
td at etd od 
essscss 
——_ > 
o 
sess 
SLSSS 
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© SAREE AAEAAAAAAAAAAAEAAAAAEAAAAERAAAAAARAARAAERAAAAAARARAEAREKEE 


2*TEST 


CONTROLLER ACCESS TEST 


© S RASAAAAAAAAAAAAAAATAARAAAAAAARARAAARERAAREAAARARAAAAAEEREREEKREKKE 


T1: 





001226 


5 $838 


3 
< 





BSSq S2SSSsSsesSsSe Ses 


000006 si 
000042 TST 
BNE 
5424 JRP 
m_— 606 6G 
3s: 


s*TEST 2 


sSCOPE CALL 
Neo} OF TEST 


#STACK,SP i] ITIALIZE STACK POINTER 
SBASE [RO = UNIBUS ADDRESS 

TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 

#1, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 


R1 
ERRVEC.-(SP) §_: PUSH ERRVEC ON STACK 
ERRVEC+2,-(SP) :;PUSH ERRVEC+2 ON STACK 
$ ERRVEC 
#PR6, ERRVEC+2 


R1.RMCS1+1 (RO) 
R1 (RO) 








sMOVE HI BYTE TO RACS1 
sMOVE WORD COUNT REGISTER 


sMOVE BUS ADDRESS REGISTER 


-:PUSH RMCS2(RO) ON STACK 
:MOVE CONTROL STATUS REGISTER 


-:POP STACK INTO RMCS2(RO) 
:MOVE DATA BUFFER 


: -:POP STACK INTO ERRVEC+2 
+, ERRVEC  ::POP STACK INTO ERRVEC 
‘NO BUS TIMEOUT OCCURRED 


sADJUST STACK 
;;POP STACK INTO ERRVEC+2 











(SP)+, (SP)+ 
(SP) +, ERRVEC+2 
(SP) + ERRVEC ::POP STACK INTO ERRVEC 





TART1 
vm 
$GET42 





2 SREAERAEEEAARARERAAREEEARAEAERAAARAAEKAAARAAAAAAAAAERARRERERERARRE 


WRIT 
© SSEEAEAEAAEEAEAAAAREEAEEEEAEEAAAAARAAERAAARAAAAARARAAAREEAAAAAAERE 


wad card ed 
— 
oS 


001226 





sSCOPE CALL 
sSTART OF TES 






T 
#STACK sP “INITIALIZE STACK POINTER 

SBASE .R :RO = UNI 

ISTQUE R1 7(R1) = DEVICE BEING TESTED 

#2, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 


FE AAAAAAAAEEAERARARERAEEEEEEAAARAAAAAAAAAAAAARARAEARARAAAAAAARARERE 


sLOOP #1 


FORMAT ,WRITE READ 


SEQ 0070 
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WRITE, READ ZEROS 


T 


38 010124 


ay 010124 
010130 


oooo 
~~ 
Oooo 
pour Goer Par 
OSES 


82 


esssse 


FSSNVEE 


used cad) card Load coed cond oud 
oooooo 


ooooocooe 


tad od 
ENO S&S 
833 


ose 
ery 
at La 

ae 
ws 


eed coed ceed oe eh md ond and ond 


i 
és 
68 





154130 


= 
— 


ab at ed et nt 
BAC 


O 
=n 


ee ee ee eo ear 
ose ee cach) wee nnd) we edt ct 


ESESY INNNNNNS 


—s 


e 
4 


034032 








18: 


ae aevess FOR TEST 


PC .TSTPRP 
154130 

aR 2 +60 

NOP : 

EMT “ERROR # 

JMP 25$ § 









:PREPARE DEVICE 
: TASK DESCR iPr OR A 
SELECT DEVICE 

‘VERIFY an 


Aghs AVAILABLE 
bpehat ie 
RATION 

F VOLUME NOT VALID 


M EDGE “PIP’’ IS SET 


T 
agit 
Lect 


sLOAD PARAMETERS AND GENERATE DATA BUFFER 


2$: 


; VERIFY 


3: SETUP 


43: 


5$: 





¢ BADSCT ; 
-SCTMSG ; 
258 ; 





P 





TERS AND EXCUTE COMMAND 
#PUTINX he 






cj. = jm “4c. <4 
Oe SRIGGGGE] a8! ayteg H222z2 


ae 
¥ 
it 

PC ,PUT 

5 
EMT 
JMP 25$ 








;CY ~. 559. 


= 2, SECTOR = 0 


$s 
S ADRESS (2°S COMP) 
BIT FORMAT 
TE HEADER AND DATA COMMAND 


= 
= 





ie 





STARTING ADDRESS OF PATTERN 






:RANGE OF PATT 
[60 GENERATE BUFFER FOR FORMAT 





sR2 = BYTE ENTRY POSITION 


s TERMINATE TABLE 





;SETUP GET INDEX TABLE TO READ ALL REGISTERS 


JSR PC,,GETSTS :G0 


TO GETSTS SUBROUTINE 


SEQ 0071 


. ——E — 


A ete 


WRITE, READ ZEROS 


010332 


SAR ind 


SIa~ 
Ooo0000 
i eo 
SO0000 
= we 


Go 
_~ 
oo 


SLSSRBIEARAR 


a ee ee eS | 


004737 


% 


oS 
—, 
sea 
on 


ee 
a 


Bees 
Sz 


~~ tt BIOOOO 


ee ee ee 
NANANSS 


040732 


040110 


011104 


054166 


011104 


010404 


034032 


011104 
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WAIT FOR waren | "9 COMPLETE 
JSR PC, TIMOUT 


:GO0 GET REGISTER STATUS 
JSR PC GET 


:G0 TO TIMOUT SUBROUTINE 












NOP 
EMT 
JMP 25$ 

6$: 

sVERIFY RESULTS OF WRITE COMMAND 
JSR PC. ,DTASTS DATA TRANSFER 
NOP 
EMT TERROR # D TASTS SUBROUTINE 
JSR PC a(SP)+ :60 BACK FOR MORE ERROR CHECKS 

- JMP 258 60 TO 25$ IF ERROR 


sMOVE LOOP me x TO NEXT OPERATION 
001124 MOV #8$ , SLPERR 
SKIP TO WRITE OPERATION 


fs AAAAEAAAAAAAAAERARAAEATERARAAARAEAARERARAARRAEARARAAAAAERAERRERE 



















‘Loop ry, WRITE ,READ 
8$: 
: PREPARE DEVICE FOR TEST 
ae; ISTPRP ; PREPARE DEV DEVICE FOR TEST 
41 SCRIPTOR AS FOLLOWS: 
:SE ECT DEVICE & VERIFY DEVICE AVAILABLE 
7CL ONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKN Bark DGE IF VOLUME NOT VALID 
3RECAL IBRATE IF Scr OR 'PIP’’ IS SET 
$ CALIBRATION 
BR 9§ ; 
NOP : RROR 
EMT : Y TSTPRP SUBROUTINE 
9s JMP 253 3 


i SETUP PARAMETERS AND EXCUTE COMMAND 
: :MOVE MEMORY ADDRESS 


> CHANGE 
SWRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 








SE@ 0072 


rr nnn ie 
- 


C 
T 


3 
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WRITE, READ Z 





1 11 
192 Sze 15758 SHR 
1 737 040360 
; é 
137 011104 
i 
: 004737 040024 
1 
004737 040732 
1 
1 004737 040110 
4 
' 192509 011104 
1 004737 041126 
% 40 
52 1 
ail 7. 137 011104 
124 Bi 737 054166 
02 a0 
' : 137 011104 
1 737 041760 
137 011104 
130 01 12737 010642 
131 01 poeta” 
i 
135 
010642 
1 


001124 


118: 


sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR 360 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 


:GO0 GET 


128: 
3: VERIFY 


13$: 


14$: 


> CHANGE hv ONT igs -SLPERR 


32 RAEAEAAARAAAAARERAREAERAREAERRAREARARARERARAARAARAERERARRAAARAAEEERE 


MOVB R2)+ 
mOVvB att 

JSR PC PUT 

BR 118 

NOP 

EMT 

JMP 25$ 


PC,.GETSTS 


JSR PC, TIMOUT 


REGISTER STATUS 
JSR PC.GET 
NOP 

EMT 

JMP 25$ 
RESULTS OF WRITE COMMAND 
JSR PC ,PRIERR 
BR 1 

NOP 

EMT 

JSP Pe a(SP)+ 
JMP 258 

JSR PC .DTASTS 
BR 148 

NOP 

oor a(SP)+ 
JMP OSs 

JSR SECERR 
BR oss 

NOP 

EMT 


(SP)+ 
JSR ogs° 


sLOOP #3 


16$: 


sPREPARE DEVICE FOR TEST 


TERMINATE TABLE 


60 WRIT 





; * 
es 8 


:G0 TO TIMOUT SUBROUTINE 





sSKIP TO NEXT OPERATION 


otf no care WITH PUT SUBROUTINE 


COEF INE” BY PUT SUBROUTINE 


IF ERROR 








SEQ 0073 


CZRNFAO RMBO FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 13-4 SEQ 0074 
' WRITE, READ ZEROS 


PC. TSTPRP :PREPARE DEVICE F I = 
- thers 002130 — JSORD 156130 TASK DE E stRIPT FBR eS AH 
SELECT SEVICE ry airy D Device AVAILABLE 



























CLEAR CONTR SEL ICE | 
iveRFY CONTR clean OPERATION | 
sPACK A VOLUME Morey | 
VERIFY. PACK SCRNOUL DCE 
sREC T OR ‘PIP’ IS SET 
:VERI 3 
0106 04 AR 17$ 3:60 T I 
1 40 NOP sRETURN HERE IF E 
10654 1 EMT 3E D D BY TSTPRP SUBROUTINE 
10656 000137 011104 JMP 25$ *60 TO 25$ 
140 O1006S 17S: 
4¢ - i SETUP PARAMETERS AND EXCUTE COMMAND 
144 01 1 737 1 5264 001416 MOV T :CHANGE MEMORY ADDRESS 
145 01 12737 1 001412 MOV WRD! *READ DATA COMMAND 
146 10676 01 1555 MOV #PU *LOAD PUT REGISTER INDEX TABLE 
167 01 11 MOVB #RMDA, (R2)+ 
148 1 11 MOVB &#RMOF,(R2)+ 
149 010712 11 MOVB #RMDC,(R2)+ 
130 ot 716 11 MOVE $ #RMBA,(R2)+ 
132 01 736 1157 $ MOVE 4 @RMCS1 CR) 
138 810 11271 MOVB 7200. ( 
155 010 737 040360 JSR PC,PUT : 
1074 vey BR 198 : 
10744 40 NOP : 
Le i EMT 3 
1 0001 011104 JMP 253 5 
136 10754 19$: 
158 :SETUP GET INDEX TABLE TO READ ALL REGISTERS 
one 010754 004737 040024 JSR PC.GETSTS 260 TO GETSTS SUBROUTINE 
160 :WAIT FOR COMMAND TO COMPLETE 
161 010760 004737 040732 JSR PC, TIMOUT :60 TO TIMOUT SUBROUTINE 
189 G0 GET REGISTER STATUS 
16 1 7 737 040110 JSR GET 
1 40 NOP 
10774 1 EMT 
1 776 137 011104 JMP 25$ 
16 11 20$: 
1 : VERIFY RESULTS OF READ COMMAND — | 
| 167 011 737 041126 JSR Ce PRIERR IMARY ERRORS | 
11 05 BR $ 
11 NOP : 
11012 7 EMT ; INED BY PRIERR SUBROUTINE 
110% JSR 4" a(SP)+ :G60 BAC MORE ERROR CHECKS 
1 : 137 011104 — JMP 25$ ; FE 





C 


ates 


23 


TE 


— 
oO 
oO 


SOooooceooo |} 
ed ceed ed ed ed ed ed ed ed ed ed eed =D 


eg So 
™“ 
asin 


eed eed eed wed ed eed wd ed 
Ww ad 
oS DOODGDD 
ys eed eed eed aed etd ow od 
ast ecah 1d cond aed aed ood 
—" een coed ceed ed eed od ed 

med cmd 

SS PSROoSRR 


oo 
a 
od) end 
aed ed 


ooo” 
ee a 
we) an we ae 
nnn 
SAS 


— 
wi 


054166 


011104 
041760 


011104 


037462 


011104 


7 


33s 
Oo 


Su 


Re. 


034032 


012062 


001226 


JSR 


223: 


JMP 
23$: 


:GO VERIFY DATA 


24$: 
25$: 
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- READ ZEROS 


—_" 


PC,a(SP)+ 
aT 


—_— 


PC,a(SP)+ 
aT 


266 oo YERdtY TF NO ERROR TRANSFER 


‘RETURN HERE IF ERROR 

ERROR : real nee BY DTASTS —_— 

3G0 BACK FOR MORE ERROR CHECK 

:G0 TO 25$ IF ERROR 

60 60 10 238 47 se Gneen” ERRORS 
$_ IF NO ERROR 

‘RETURN HERE. IF ERR 

ERROR # DEFINED BY SECERR SUBROUTINE 


GO BACK FOR MORE ERROR CHECKS 
:G0 TO 25$ IF ERROR 









TE, READ DATA BUFFERS 

NG ADDRESS OF WRITE BUFFER 

STAR NG ADDRESS OF READ BUFFER 

260 TO 24 IF NO ERROR 

3RETURN HERE IF 

Z ERROR # DEF! 
60 TO 25$ IF 


3GO0 COMPARE WR 
3STAR 








{AAAAAAAAAEAEAAERAAREEAAEERERRARAEAARARARERERAREREREREEEEERERERERE 


WRITE CHECK 


WRITE, K ZEROS 
jteenteneenaeegennnnteneerenennennenneneenensennennesenensetsess 


SRTEST 3 
1813 


#STACK 


SBASE 
sToue 


3START OF TEST 
s INITIALIZE STACK POINTER 
= UNIBUS ADDRESS 
7(R1) = DEVICE BEING TESTED 
3:SET TEST NUMBER IN APT MAIL BOX 


FF ARAAAARAARARARERAREAAEEAEAARERARRERARAARERRAAAAEAEERAREAEEARRAEREREE 


FORMAT WRITE WRITE CHECK DATA 


:LooP #1 
1$: 


3 PREPARE Pape FOR TEST 


EMT 


1561 


2$ 


24$ 


Ig hPRP 


a ge DEVICE FOR TEST 

sTASK DESCRIPTOR AS FOLLOWS: 

SELECT Serer £ Ag ig AR DEVICE AVAILABLE 
T DEVICE 


EAR CONTROL 
VERIFY CONTROLLER, CLEAR. OPERATION 
SPACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
:RECAL IBRATE IF ASkL OR “PIP IS SET 


ERROR 
Soar T 
BY 







TSTPRP SUBROUTINE 


SEQ 0075 


mame ee —_ 


13 


WRITE, 


—d) od 2 ot oS 


SONSSVS 
See ooo°o 
et nd ed ad 
“tt? 
wi: 


e 
aoe oS 
NN - 


at et ot 

SELESRISLES 
OQooocoo 
a 
ke ed ad td ot ed 


_ 
Sn 


sesssssses 


ed ceed eed ed ed eed od od od 


Oe 


~ Ww 
PINT OP 
we wed eed 8 at wed 
ee eed eed es eed eed wed 


NI SSSS 
MVRWN=O EWN 


SOoooococooooooooom 
eed cond cond ed anh rd cd eed eed eed eed od et =.) od 
weed eee ee cond eed ee edd wed ed eed ceed ee 2 ds = 


WRITE CHECK ZEROS 


oo 
—— 


oo 
a 
MORO 


POPONINININININD 


NM RoRNONPP INN 


segs 
SE 


S 
We 
™N~ 
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;LOAD PARAMETERS AND GENERATE DATA BUFFER 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR :GO TO GETSTS SUBROUTINE 


PC .GETSTS 


sWAIT toa ate TO COMPLETE 





NOP 
EMT 
JMP 


s VERIFY — Ss OF wt COMMAND 


NOP 
EMT 


24$ 


PC, TIMOUT 
:GO GET REGISTER STATUS 
oy PC GET 


TASTS 





5$: 

MOV #559. .RMDCO : CYLINDER, = 559. 

MOV #TA2.RMDAO ;TRACK = 2, SECTOR = 0 

MOV 3BUS ADDRE atés 

MOV :2 + 256. WORDS (2°S COMP) 

MOV 716 BIT FORMAT 

MOV ‘WRITE HEADER AND DATA COMMAND 
:VERIFY THAT SECTOR IS NOT BAD 

JSR PC ,BADSCT OR 

TYPE § ,SCTMSG 

EMT : ERROR # DEFINED BY BADSCT SUBROUTINE 
mn JMP 24$ 0 24$ IF ERROR 

MOV #ZEROS STMPO ZSTARTING ADDRESS OF PATTERN 

MOV $TMP1 ‘RANGE OF PATT 

JSR PC SENBUF *GO GENERATE BUFFER FOR FORMAT 
:SETUP PARAMETERS AND EXCUTE COMMAND 

MOV WPUTINX,R :R2 = BYTE ENTRY POSITION 

MOVB  #RMDC,(R2)+ 

MOVB &#RMDA,(R2)+ 

MOVB #RMBA, (R2)+ 

MOVB $#RMWC.(R2)+ 

MOVB § #RMOF.(R2)+ 

MOVB anncsi (R2)+ 
a MOVB #200, (R2) s TERMINATE TABLE 

JSR BC .PUT :G0 WRIT REGISTER(S) WITH PUT SUBROUTINE 

BR 5 :GO TO 5$ IF NO ERROR 

NOP SRETURN HERE IF ERROR 

EMT “ERROR # DEFINED BY PUT SUBROUTINE 
- JMP 24$ *60 TO 246$ IF ERROR 


360 TO TIMOUT SUBROUTINE 


HERE IF ERROR 
# DEFINED BY GET SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
O 6$ IF NO ERROR 


DATA TRANSFER 


TASTS SUBROUTINE 


SEQ 0076 


* oie 


& See 
MEUM — 


NeURan2SSeNe 
SOoeoo COoQooooooooeoo 


& 
wed ed cad ceed ont od ar ceed ods ed dh lb ed end eed eh ed 


3 
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WRITE, WRITE CHECK ZEROS 


ooooeo 
= to 


SSxaee 


eed eed cond ad} aed eed ae ae) wd and aed 


LAURA OF 
—_ «ab 
> =~ © 


° 
wed 
wa 
Ww 
ty 


800139 012062 


80% 


011412 001124 


034032 


012062 


JSR pC a(SP)+ RROR CHECKS 
JMP 24§ 


ws 
m 
2 
Sen 


sMOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$ ,SLPERR 
:SKIP TO WRITE OPERATION 


fs ARAAARAAAEEKAERARARARERERAEEAAAAARKREREERAAERRERRERERERERREREREEE 


“LOOP #2 WRITE WRITE CHECK DATA 
8$: 
:PREPARE DEVICE FOR TEST 
PC 1st PRP sPREPARE DEVICE FOR TEST 
,WORD 154130 * TASK 
it 








OPERATION 
ACKNOWLEDGE IF VOLUME NOT VALID 
VER TFY. PACK ACKNOWLEDGE = 
IBRATE IF "SKI" OR ‘PIP’ IS SET 











9$ 
D BY TSTPRP SUBROUTINE 
24$ 
9$: 
qserup PARAMETERS AND EXCUTE COMMAND 
MOV 
MOV 
MOV 
MOV 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB : TERMINATE TABLE 
JSR . REGISTER(S) WITH PUT SUBROUTINE 
BR $ IF NO ERROR 
NOP / IF ERROR 
EMT ne A et BY PUT SUBROUTINE 
JMP RROR 
11$: 
sSETUP GET INDEX TABLE TO READ ALL REGISMERS 
JSR PC .GETSTS 760 TO GETSTS SUBROUTINE 
sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 


:GO GET REGISTER STATUS 


SE@ 0077 


pe 


SOUS 


mre 
Y3 


eee aes 


AAO 
™ 


on 


ed ceed ced ed ceed ce ed ed ceed eed ceed eee cee ee ceed eed eed eed eed eed eed 
eed eed ed ceed eed ceed el eed eed ceed ced eed ee ed od eed eed eed eed eed 


SE ERRSSRSS 


5 


OOOOOCOOCOOOCOOCOCOoaoCcooo 


SS saNousn 
oo 
a 
wah cond 


i=) 
— 
~ 
oO 
Ww 
=) 


11650 
11654 


™~ 


: 011670 


3 
S34 & 


g33 
~ 


10 


040110 


012062 


041126 


012062 
054166 


012062 
041760 


012062 


011650 


034032 


012062 


001124 
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JSR PC GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 128 *GO TO 12$ F NO ERROR 
NOP {RETURN | HERE IF ERROR 
EMT TERROR # be INED BY GET SUBROUTINE 
JMP 24$ [GO TO 24$ IF ERROR 
128: 
sVERIFY RESULTS OF WRITE COMMAND 
JSR PC PRIERR 60 forts’ FOR PRIMARY ERRORS 
BR 13$ :60 TO $. 
NOP RETURN HER rr Pe OR 
EMT #d FINED BY PRIERR SUBROUTINE 
JSR PC.a(SP)+ “GO BACK FOR MORE ERROR CHECKS 
in JMP 24$ *GO TO 24$ IF ERROR 
JSR PC DTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
BR 14$ *GO TO 14$ IF NO ERROR 
NOP SRETURN HERE IF 
EMT SERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC.a(SP)+ 'GO0 BACK FOR MORE ERROR CHECKS 
sain JMP 24$ *GO TO 26$ IF ERROR 
JSR PC SECERR :60 forts" FOR SECONDARY ERRORS 
BR tiéA“SSS :60 TO $1 
NOP SRETURN HE 
EMT sERROR # BEE INED BY SECERR SUBROUTINE 
JSR PC a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
JMP 24$ 760 TO 24$ IF ERROR 
15$: 
: CHANGE LOOP RESSES sah - 
sSKIP TO NEXT OPERATION 
{AARAAARAERARARERAERERERRERRREREAERARAREERARERRRRRERRERREREEEREREE 
‘Loop #3 WRITE CHECK DATA 
16$: 
:PREPARE DEVICE FOR TEST 
JSR PC. TSTPRP ;PREPARE DEVICE FOR TEST 
,WORD 1541 ‘TASK DESCRIPTOR AS FOLL 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
ONTROL SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
a ene 
: RPGS ‘PIP’ IS SET 
: FY. SRECALIBRATION. 
BR 17$ :G0 ae of ee 
NOP RE Se ruRN HERE IF ERROR 
EMT ; EFINED BY TSTPRP SUBROUTINE 
178 JMP 24$ § 





ipeluP PARAMETERS AND EXCUTE COMMAND 


SEQ 0076 


——————— 


oy 


N—O Oe 


. 





cT 


ed weed ceed eed ed eh ed ed =z 


SSER9 ANNAANSS 


a 


Bae 


S 
Lat 


esse SF 
S34 & 


Sou & 


S 
™N 


PTS MACRO 
TE CHECK ZE 


2} 001412 





012062 


yes -60 28-JAN-82 16:49:32 PAGE 13-9 


sWRITE CHECK DATA DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 





WRITE REGISTER(S) WITH PUT SUBROUTINE 
} RROR 






TO F 
sRETURN HE 
60 10 268 IF 
19$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC ,GETSTS 3:60 TO GETSTS SUBROUTINE 
sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 





3:60 GET REGISTER STATUS 
J — :GO READ REGISTER(S) WITH GET SUBROUTINE 
760 TO 208 IF - ERROR 





EMT 









24$ 
20S: 
;VERIFY RESULTS OF WRITE CHECK COMMAND 
JSR os PRIERR 3 
BR 218 5 
NOP 3 
EMT $ 
JSR ef a(SP)+ 5 
JMP 24$ ; 
—_ JSR DTASTS 
ae tCO 
NOP 
EMT 
JSR PC.a(SP)+ 
JMP 24$ 
e2$: sR sé SECERRR 
BR 556 
NOP 
EMT 
= m_ 
238: 
24$: 


33 SRAEREEARAEAAAAERARAEAREEEEAEASRERAEAARAAARAAAEARAARAEAEAAEAAAAAAAAAAAEE 


SEQ 0079 
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WRITE, WRITE CHECK ZEROS W/ WCE ERROR 


seTEST 4 
T4: 


WRITE, WRITE CHECK ZEROS W/ WCE ERROR 
**EEEEKEKAAAEAARAEAAAAAAAAEAAAAARARRARARAARARARERAAAARAAEAAAEEKEAREAERE 
SCOPE ; SCOPE CALL 
NOP “START OF TEST 
MOV #STACK, SP 3 INITIALIZE STACK POINTER 
MOV :RO = UNIBUS ADDRESS 
MOV TSTQUE .R 


001226 


— 
bt 
Oo 
oO 
_ 
No 


3 
4 
5 ‘LOOP 
6 
7 


ia) = DEVICE BEING TESTED 


MOV 4s, STESIN T TEST NUMBER IN APT MAIL BOX 


J AAAAAEAAEAAERARAREAREREEEAAEARERAEEERERERRAREREREAEREREREREREREERE 
#1 


012110 1$: 


eed weed) eed weed eed ab oad 


SSuReee 
Soooooeo 
wordt cred) weed cod acd wok 
POPORINIAINY 
Solcoios 
SANS 
cord om 
oP 
sssses 
et etd od cd med 


— 
~ 
O 
N 


weed ed cad ened ond cod od 
sar oo 


001176 


MEWS 
OSooooooeeo 


~t td td ED S22 
et wed eed ed eed ed ona md 
Mr 
-_ 
we Yess 
par 

~ 
=_=Ouvi 
=O 


ee ee eee ey 


SeyaESe 





prt het 
oooooecoHo 


es: 


: VERIFY 
J 


FORMAT ,WRITE WRITE CHECK DATA 


sPREPARE DEVICE Ay rset 















SR TSTPRP :PREPARE DEVICE FOR TEST 

. WORD Ate 0 STASK DESCRIPTOR AS FOLLOWS: 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
*CLEAR CONTROLLER & SELECT DEV VICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
*RECALIBRATE IF Fok OF ‘PIP’ IS SET 
VERIFY RECALIBRAT 10N 

BR 2$ :GO TO 2$ IF NO ERROR 

NOP *RETURN HERE IF ERROR 

EMT *ERROR # DEF INED BY TSTPRP SUBROUTINE 

JMP 28$ *GO TO 28$ IF ERROR 


sLOAD PARAMETERS AND GENERATE DATA BUFFER 
#559. 
aT. 





4h eg = 559. 
= 2, SECTOR = 0 








a 





om AmeD. : US" ADDR WORDS (2°S COMP) 
; 6 BIT FORMAT 


RACS1O WRITE HEADER AND DATA COMMAND 





TING ADDRESS OF PATTERN 
;RANGE OF PATTERN 
:G0 GENERATE BUFFER FOR FORMAT 


:R2 = BYTE ENTRY POSITION 





eee ee 
ES Se RE Ee Sm ee 


— 


Sess 


oOooooeoe 
paar Soar Sor Por Peer Yer Sew 


SS ISISSRN S$ 
2 e gs 

mr N ror 

a 


7 
& 
1 
1 


004737 


—, 


000200 
040360 


013256 


040024 
040732 


040110 


013256 


054166 


013256 


012370 


034032 


013256 


001124 
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WRITE, WRITE CHECK ZEROS W/ WCE ERROR 


335 12270 112712 
> 012274 
ae 


a move #200, (R2) : TERMINATE TABLE 
: JSR pC .PUT 60 wRITE REGISTER(S) WITH PUT SUBROUTINE 

BR 5 *60 TO 5 I OR 
NOP ‘RETURN HERE IF ERROR 
EMT SERROR # DEFINED BY PUT SUBROUTINE 
JMP 28$ :60 TO 28$ I 

5$: 

sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 


sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


3;G0 EGT REGISTER STATUS 
JSR PC GET 


:G0 TO TIMOUT SUBROUTINE 


NOP 
EMT 
JMP 





28$ 





sVERIFY RESULTS OF WRITE COMMAND 
JSR PC ,DTASTS 





EMT 
JSR —* 
JMP 2 





sMOVE LOOP ADDRESSES TO NEXT OPERATION 
“44 oSLPERR 


sSKIP TO WRITE OPERATION 








FF AAAAARAAEAAERAAAAAAAAEAERLERARALARAERAAERAAAEARARAARERAAERAEERREREREERE 
*LOOP # WRITE,WRITE CHECK DATA 
8$: 
:PREPARE DEVICE FOR TEST 
JSR Peet :PREPARE DEVICE FOR TEST 
JBORD 1541 ; AS FOLLOWS: 
: RIFY DEVICE AVAILABLE 
; SELECT DEVICE 
; RATION 
3PACK ACKNOWL F VOLUME NOT VALID 
: PACK ACKNOWL EDGE ot i 
; IF SKI" OR ‘PIP’ IS SET 
; CALIBRATION 
BR 9$ : 
NOP : 
EMT : D BY TSTPRP SUBROUTINE 
- JMP 28$ ; 


SEQ 008) 


a 


CZRNFAC RMBO FCTNL PTS MACRO. VO4.00 28-JAN-82 16:49:32 PAGE 13-12 m2 3€0 0082 
WRITE, WRITE CHECK ZEROS W/ WCE ERROR 
{SETUP PARAMETERS AND EXCUTE COMMAND 


;CHANGE WORD COUNT 
; CHANGE tw! ADDRESS 
;WRITE DATA COMMAND 
sLOAD PUT REGISTER INDEX TABLE 






md amd 22d 
oo 


eee 


a 5 SF 
SeeVsceee : 


#-256. ,RMWCO 
WBUF ONE +4 


1414 
1718 
141 


ee ed ceed 6 ed ed ed eed cel eed ceed ed cd 


OOooeooooooo 


wt od ond ond od ond IQHOOOS? 


ee ee ee ee ee ee ee ee 


SANAAN SSS 
~~wnv 


s TERMINATE TABLE 
















































01 737 ITE REGISTER(S) WITH PUT SUBROUTINE 
01247 04 118 IF - ERROR 
01 40 HERE IF ERROR 
1 1 Str Er BY PUT SUBROUTINE 
1 0001 013256 8$ IF ERROR 
399 012510 118: 
rts sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
012510 004737 040024 JSR PC.GETSTS :G0 TO GETSTS SUBROUTINE 
408 sWAIT FOR COMMAND TO COMPLETE 
606 012514 004737 040732 JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 
405 :GO READ STATUS Ay WRITE COMMAND 
406 01 040110 JSR GET 3G0 READ REGISTER(S) WITH GET SUBROUTINE 
4, s 0 128 IF if ehaon 
a é NED BY GET SUBROUTINE 
1 013256 28$ 3 ERROR 
per 01 128: 
409 sCHECK FOR ERRORS DURING WRITE OPE 
410 01 041126 JSR PRIERR ; FOR PRIMARY ERRORS 
01 BR 3 NO ERROR 
a NOP : IF ERROR 
1 EMT § NED BY PRIERR SUBROUTINE 
01 JSR —-°* s ERROR CHECKS 
ant ; 013256 135 JMP 2 $ 
412 01 054166 JSR PC .DTASTS 3 OF DATA TRANSFER 
BR 148 ; RRGR 
1 EMT s€ TASTS SUBROUTINE 
1 JSR —-? 360 BAC CHECKS 
1 013256 JMP 2 :60 TO 
413 01 14$: 
4146 O01 041760 JSR 4 SECERR 360 Hetk 
1 BR 15$ :60 TO 
1 NOP sRETURN 
1 EMT sERROR # 
1 JSR atl :G0 BACK 
1 013256 JMP 2 :60 TO 2 
415 01 15$: 





se -sssssl sisisestsssssssesssnen: 


41 


41 
re 012616 012737 012630 001124 


wd 
ed ed ed td etd ed = OD 
weed met coe smh acd ad ed cond eo 


ws 
~ 


PEGRRAR AROS 
wr 

3 

> N 


WN 
eed end ead amd ooh od odd wok cond oak eh wend ood ond =ah ond 


N 


S 


012740 


“He 


a. Ee set 
2 
y 
rS 


012703 
050337 


154130 


. 


013256 


040110 


001412 


; CHANGE io weet! 
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WRITE, WRITE CHECK ZEROS W/ WCE E 


SLPERR 


£ FAAAAARARAAAAAAAAAAARAAAERERERAAAAAAAAKERAAAARARAAEKARRARERARREEES 


WRITE CHECK DATA 


#1,R3 
R3 .BUF TWO-2 


PREPARE DEVICE FOR 3 
P PR 


;LOOP #3 
MOV 
16$: 
BiS 
. WORD 
BR 
NOP 
EMT 
JMP 


17$: 


sREAD DATA FROM DEVICE 


18S: 


19$: 


; SETUP . INDEX pe rete ts READ - 





430% ne 


euriN ne 
“thas 







pa 
BRED C. 
SOBA. ( 
Th Se 
(2) 


+ Tal 


sWAIT rt es TO COMPLETE 


:GO0 READ STATUS Ay aire CHECK an min 
JSR GET 


La 


EMT 


PC, TIMOUT 


sR3+WCE BIT POSITION 
;CHANGE LAST WORD OF BUFFER 






hy D Wace FOR TEST 


PTOR AS FOLLOWS: 
LER ser SELECT DEVICE AVAILABLE 
T DEVICE 
EF 






CLEAR OPERATION 


VERIFY PACK ACKNOWL a 
ab IF SKI" OR “PIP’’ IS SET 
CAL IBRAT ION 
IF WO ERROR 
; If ERROR 
I 







INED BY TSTPRP SUBROUTINE 
F ERROR 


WRITE CHECK DATA DATA COMMAND 


: T 
sLOAD PUT REGISTER INDEX TABLE 





GISTERS 
0 GETSTS SUBROUTINE 






G0 TO TIMOUT SUBROUTINE 





f. TURN 


SEQ 0083 


ee ES Ee mn em 
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WRITE, WRITE CHECK ZEROS W/ WCE E 


652 01g be 000137 013256 

4 

$2 | 

455 0% rte 737 041126 
77 


5 
40 


1 013256 
040000 


054166 


041760 





001346 


20S: 


CHECK FOR ERRORS tT WRITE CHECK DATA OPERATI 


21$: 


223: 


23$ 


a m @ {crm = 
SS SG7CSS FESSS53 WFs"s 5 


243: - 


25$: 


26$: 


JMP 28$ 

JSR 

BR aT i 

NOP 

oor PC.a(SP)+ 

ie OtOS 

BIT E.RMCS21 
PC DTASTS 
5g 
PC,a(SP)+ 
aT 


S359S- 


S75 «S259*3 


m 
=z 
m4 







RMCS21.$GDDAT 
#WCE 
RMCSel 


ee 


#200 GETINKe} 
anaes 








— 


:G0 TO 28S IF ERROR 





G0 CHECK FOR PRIRARY ERRORS 





;RETURN HERE IF E 

sE & 43 INED BY PRIERR SUBROUTINE 
7G0 BACK FOR CHECKS 
:G0 TO 58s IF € 


sWAS “WCE’’ DETECTED?? 
YES! ! 


Y os ir ee OF DATA TRANSFER 
TURN HERE. ir E 

sERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

TO 28$ IF ERROR 


sEXPECTED STATUS 
sRECEIVED STATUS 


sFAILING BIT POSITION 
FAILING ADDRESS 










E 
BY GET 





~" 
: 


OND 
4 
Pd 


ss 






VE 
TE 
TED ADDRE 
VED ADDRESS 


ww 
Os 


AD T 
ADDRESSES 0K?? 


Se 
5 
— 
R 
wd 
“a 


:60 oO ee SECONDARY ERRORS 
NO_ ERROR 


RETURN HERE IF ERROR 
SERROR # DEFINED BY SECERR SUBROUTINE 


SEO 0084 


SS —_—_—————— LL LT 
esses 
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; WRITE, WRITE CHECK ZEROS W/ WCE ERROR 
































01 PC. a(SP>+ :G0 BACK FOR MORE ERROR CHECKS 
aa 3 Hint 013256 -_ aT :60 TO 28$ IF ERROR 
490 01324 0337 105256 ; R3, BUF TwO-2 sRESTORE DATA PATTERN 
491 01 R “SHIFT TO NEXT BIT 
492 0132 4 : EXIT iF DONE 
493 07 137 012630 SREPEAT TEST FOR NEXT DATA BIT 
toe 01 283: 
496 {RAAAAAAAAAEAARARARAARAAEAAERARAERARAAAAAAARARARRARAAARARRERARAKEEEE 
TSTEST 5 WRITE, READ 
56 : ” sia gurantee taaammemmee 
01 : 
013256 SCOPE :SCOPE CALL 
01 40 NOP *START OF TEST 
01 91 1100 MOV #STACK sP INITIALIZE STACK POINTER 
01 01 1276 MOV R ‘RO = UNIBUS ADDRESS 
1 013701 001 MOV TST R1 3 (R1) = DEVICE BEING TESTED 
— 13276 012737 001226 MOV #5, S$TESTN 7:SET TEST NUMBER IN APT MAIL BOX 
498 g2 RAAAAAAKAARARARAAAERAEAEAAEAARARAERARARAREARARAARAKARARAAEAREEREARE 
499 “LOOP #1 FORMAT ,WRITE ,READ 
501 013304 1$: 
208 sPREPARE THE DEVICE FOR TEST 
504 013304 004737 034032 JSR PC TSTPRP :PREPARE DEVICE FOR TEST 
013310 1541 -WORD 154130 ;TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE a € VERIFY DE DEVICE AVAILABLE 
T DEVICE 
; ta OR ‘PIP’ IS SET 
1 12 000404 BR 2$ ; 
1331 40 NOP ; 
13316 1 EMT : Y TSTPRP SUBROUTINE 
1 137 014264 JMP 25$ : 
e . LOAD PARAMETERS AND GENERATE DATA BUFFER 
13324 012737 001057 00144 ; #559. ,RMDCO 
1 12737 001 1430 #TA2. REDAO 
10 01 12737 1 1416 RMBAO 
11 01 12737 177376 001414 8-258. , RAWCO 
12 013354 012737 01 1446 aEMT 6. RAOF 0 
13 1 1 1412 #WH'!GO,RACS1O 
15 :VERIFY THAT SECTOR IS NOT BAD 
1 737 034762 JSR pC .BADSCT 
1 5 BR 
1 066006 TYPE »SCTMSG 
, 014264 - JMP 25$ 
i$ 13410 012737 067414 001174 ~ MOV #ONES , STMPO sSTARTING ADDRESS OF PATTERN 


WRITE, 


331 


5 


Fw 
5 
et at ot IO 
ed ceed cee ed od ond oD 


004737 





O00) 001176 


014264 


013564 


034032 


001124 
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READ ONES 


519 olseze 000737 


MOV #1, STMP1 OO GE PATTERN 
JSR PC, GENBUF ; NERATE BUFFER FOR FORMAT 


sLOAD PUT REGISTER ER INDEX, TABLE FOR FORMAT 
MOV 

mnnoc. (he) 

th ) 

(Ro) 


awit 
atts 









IRS = BY BYTE OENTRY POSITION 











; TERMINATE TABLE 


DRIVE 
cgePur 
5 


JMP 25$ 
5$: 
sSETUP GET INDEX T 
JSR 


3 sie READ - REGISTERS 


TO GETSTS SUBROUTINE 





PC, 


sWAIT FOR COMMAND 9 COMPLETE 
JSR PC, TIMOUT 260 TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR * nell OPERATION 
JSR oGET :G0 READ aesistents? WITH GET SUBROUTINE 
:60 TO ~. IF oe 


















EMT cE INED® ee GET SUBROUTINE 
25$ :60 TO s DEFINE ERROR 
6$: 
* VERIFY NO ERRORS DURING FORMAT 
JSR arene $ 5 py yt OF DATA TRANSFER 
3 F NO ERROR 
; IF ERROR 
EMT : EF INED BY DTASTS SUBROUTINE 
J 4" a(SP)+¢ 3:60 BACK OR MORE CHECKS 
- 258 760 TO 


sMOVE LOOP ADDRESSES TO aid OPERATION 
MOV o SLPE 
BR SKIP TO WRITE OPERATION 


FF AAAAAEAAAAAAAAAASEEREAAAARERERAAAARAAAARARALASRAAAAAARAAAAAAEERE 


LOOP #2 WRITE ,READ 
8$: 





> PREPARE Ps FOR TEST 


PC. TSTPRP PREPARE DEVICE FOR TEST 





SEQ 0086 
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; WRITE. READ ONES 
013570 156130 [WORD 156130 :TASK DES 
SELECT airy bev v DEVICE Ay AVAILABLE 
"C 
PACK AC UME NOT VALID 


"PIP’’ IS SET 











013572 04 BR 9$ 
13574 4 NOP 
13576 1 EMT TSTPRP SUBROUTINE 
1 1 014264 JMP 25$ 
260 1 9$: 
26¢ “WRITE DATA TO THE DRIVE 
1 10S: 
564 01 1 MOV 
5 01361 1 MOV 
1 1 MOV 
1 1 MOV 
1 11 MOVB 
1 11 MOVB 
1 11 ROVB 
71 O01 11 MOVB 
5 1 11 MOVB 
5 1 11 MOVB 
278 1 11 MOVB i 3 TERMINATE TABLE 
576 01 JSR nf PuT ; mest STERCSS WITH PUT SUBROUTINE 
01 BR 118 ; F NO 
13674 NOP 3 If E 
13676 1 EST . FINED BY PUT SUBROUTINE 
1 0001 JMP 25$ $ IF ERROR 
13704 11$: 
sSETUP GET INDEX pe eeists TO READ . REGISTERS 
013704 004737 040024 JSR TO GETSTS SUBROUTINE 


sWAIT FOR COMMAND TS C TE 
JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 


GO READ STATUS FOR WRITE COMMAND 
SR GET GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 128 IF 
TURN HERE 
el D 
IF ERROR 












FES 28 Yay 


axed con a & wad and wed 
RARE: 
— 
ah 
Sey 
e e¢ 
LL ©S 
a = 
e 3 
—) 
& 






25$ 


St 


ed ed od eed ed ed od 

RRERERS 
~~ 

r~4 

ww 

S R 

ad 

mt 

Oo 


sCHECK FOR ERRORS DURING WRITE OPE 
JSR “— 





NOP 
oor PC.a(SP)+ 
JMP Sg 


13$: 


LL —_ A LT - 
_ —_—_—_—— -. = =. 
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1 WRITE, READ ONES 






















590 0137 7 054166 JSR PC .DTASTS 360 V 
1 BR 14$ “GO T 
137 PC a(SP)+ - 360 
137 137 014264 25§ 760 
293 0137 737 041760 sans PC, SECERR G0 
+ 77 05 BR 188 60 
14 40 NOP RE 
1 1 EMT = ERROR 
14 004 JSR Pe a(SP)+ 760 BA 
14 000137 014264 JMP 25$ :60 TO 
393 01401 15$: 
595 :CHANGE LOOP ADDRESSES 
596 01401 12737 014022 001124 MOV #16$,SLPERR 
597 0149 ona10 BR 17 :SKIP TO NEXT OPERATION 
S99 SE RRRRAARERAEAREERAREREERERAEERAEEREREEREERERREEEEEERREREERERREEE 
:LOOP #3 READ 
601 
602 014022 16$: 
604 :PREPARE DEVICE FOR TEST 
605 014022 004737 034032 JSR PC TSTPRP ZPREPARE DEVICE FOR TEST 
014026 1541 .WORD 1541 “TASK DESCRIPTOR AS FOLLOWS: 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
: CON SELECT DEVICE 
RIFY CONTROLLER CLEAR OPERATION 
Pp CK A F VOLUME NOT VALID 
sVERIFY PACK ACKS ~ “wie 
:RECALIBRATE IF SKI OR 'PIP’’ IS SET 
: VERIFY RECALIBRATI 
014030 000404 BR 17$ :60 TO 17$ IF NO ERROR 
1 40 NOP sRE F ERROR 
14034 104 EMT E Y TSTPRP SUBROUTINE 
14036 000137 014264 JMP 25$ : 
606 1404 17$: 
608 “READ DATA FROM DEVICE 
14 18$: 
610 01 MOV : CHANGE 
611 01 MOV ARD *READ DATA COMMAND 
61¢ 1 MOV #PU “LOAD PUT REGISTER INDEX TABLE 
613 01 MOVB #RMDA 
614 014 MOVB  #RMOF 
615 01 MOVB #RMDC 
616 1407 MOVB AREA 
O18 O14} MOVE ARMCS 
i 1411 MOVB 4200 
1 14116 JSR PC PUT :60 GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
141 BR 1 NO ERROR 
14126 NOP ‘OE TURN HERE IF ERROR 
141 EMT SERROR # DEFINED BY PUT SUBROUTINE 





SEG 0082 


ee 
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T 


WRITE, READ ONES 


og BE 


Noon RKRENSE 


mond end od eon enh ad 
an 


SSSs: 
MMS 


34 
5 


ae 
mr 
web eed ed 
MMA LNM 





Be 


ne. 

SS 
COOCOCCOOC OOOO OCOOOO OOO OO OO OoOOOoOOoOOoOoo 
ere ce ce ceed ee eed ec eh ceed ccd ed wend ceed ceed ed ee ceed ee we ce weed ed eed eed ered eed ed ed 
PREP PP EP PR RP PRP PRR RPL PPPS 


PEERS 
7 
FS 


000137 


004737 


004737 


So 
— 
&S 


014264 


040024 
040732 


040110 


014264 


041126 


014264 
054166 


014264 
041760 


014264 
037462 


014264 


001700 


























JNP 25$ :60 TO 25$ IF ERROR 
198: 
sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 560 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
=GO READ STATUS FOR READ OPERATION 
JSR Po GET ) WITH GET SUBROUTINE 
208 RROR 
NOP : ERROR 
EMT D BY GET SUBROUTINE 
JMP 25$ 5 
20S: 
sCHECK FOR ERRORS DURING READ OPERATION 
JSR PC 360 CHECK FOR PRIMARY ERRORS 
BR 21§ °GO0 TO 21% IF NO ERROR 
NOP SRETURN HERE IF 
EMT *ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
aah JMP 25$ *GO TO 25$ IF ERROR 
a PC DTASTS eo Vote # RESULTS OF DATA TRANSFER 
BR 22$ 2$ I ERROR 
NOP 60 1 29s ir 
EMT ZERROR | e # DEFINED BY DTASTS SUBROUTINE 
JSR PC a(SP)+ *60 BA ERROR CHECKS 
oe JMP 25$ 760 TO Css IF ERROR 
>. an BC ,SECERR :G0 CHECK FOR SECONDARY ERRORS 
BR 2 :60 TO ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUT! 
JSR Pe a(SP)+ 760 BACK FOR 
sai JMP 25$ *GO TO 25$ IF ERROR 
"SSSR PC CMPBUF :G0 COMPARE WRITE, READ DATA BUFFERS 
.WORD  BUFONE sSTARTING ADDRESS OF WRITE BUFFER 
: BUF TWO+4 “STARTING ADDRESS OF READ BUFFER 
BR 3:60 IF 
NOP “RETURN HERE IF 
EMT “ERROR # DEFINED BY CMPBUF SUBROUTINE 
JMP 25$ :60 TO 25$ I 
24$: 
25$: 
J AARAAAAAAARAKEAEEREREEEEEERERAEAARAEAAARAAAEEREREKEAEARERRERREREE 
TSTEST 6 WRITE, WRITE CHECK ONES 
aidan cor sai hc cou aaa aeaemmaeaaaaaanei 
"SCOPE s SCOPE cALL 
NOP “START OF TEST 
MOV #STACK, SP * INITIALIZE STACK POINTER 


SEQ 0089 


a 7 
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16 WRITE, WRITE CHECK ONES 























14274 1276 MOV SBASE RO. :RO = UNIBUS ADDRESS 
14 i A 1 MOV TSTQUE,R *(R1) = DEVICE BEING TESTED 
ni 14 12737 001226 MOV ba Stesty +;SET TEST NUMBER IN APT MAIL BOX 
78 {AAAAARARAAARAAARARAAAAAAAAAAEAAAAAAAAAAERAEARAAREEAAAREEREERREEE 
64 “LOOP #1 FORMAT WRITE,WRITE CHECK DATA 
648 
rch 614312 1$: 
$25 014312 7? 034032 a ae a STPR al PREPARE DEVICE F 
Oeste 007430 WORD 1841 eal : D sth PT 
‘SELECT DEVICE VICE AVAILABLE 
; CONT DEVICE 
;VERIFY CONTROLLER RA 
















“PACK ACKNOWLE 
VERIFY PACK ACKNOWL <a 
:RECALIBRATE ‘SKI PIP’’ IS SET 
VERIFY RECAL IBRATION 
014 04 BR 2$ 760 TO 2$ IF NO ERROR 
014322 40 NOP “RETURN HERE IF E 
014324 1 EMT TERROR # DEIN h) > BY TSTPRP SUBROUTINE 
on 014 000137 015242 JMP 24$ 760 TO 24$ I 
654 “LOAD PARAMETERS AND GENERATE DATA BUFFER 
655 014332 2$: 
656 014 012737 001057 001446 MOV 4 : CYLINDER = 559. 
63 014340 012737 001000 001420 MOV #TA2,RMDAO :T = 2, SECTOR = 0 
658 014 012737 104236 001416 MOV ; _ 
659 014354 012737 177376 001414 : . WORDS (2°S COMP) 
660 014362 012737 010000 001444 216 ait FORMAT 
661 014 012737 000063 001412 “WRITE HEADER AND DATA COMMAND 
re sVERIFY 
014376 004737 034762 JSR BAD 
014402 000405 BR 3$ 
014404 104401 066006 YPE BAD SECTOR MESSAGE 
014410 104000 RROR # DEFINED BY BADSCT SUBROUTINE 
oa 914612 000137 015242 - TO 24$ IF ERROR 
665 014416 012737 067414 001174 :STARTING ADDRESS OF PATTERN 
666 014424 012737 1 001176 ; RANGE 
667 014432 004737 037214 JSR *GO GENERATE BUFFER FOR FORMAT 
69 sLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
£, 014456 012702 001555 MOV #PUTINX,R :R2 = BYTE ENTRY POSITION 
or) Oraces 119799 0000 move 
4 1485 11 MOVE 
674 014456 11 MOVR 
675 01 11 MOVB 
676 1 1127, MOVB 
677 014472 11271 00 s TERMINATE TABLE 
678 014476 4$: 
680 sFORMAT THE DRIVE 
681 014476 004737 040360 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SU@ROUTINE 
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, WRITE CHECK 
14 BR 5$ :G0 TO S$ IF NO ERROR 
14 NOP “RETURN HERE IF ERROR 
ie ats EMT SERROR # DEFINED BY PUT SUBROUTINE 
1451 015242 JMP 24$ *G0 TO 248 IF ERROR 
re 01451 S$: 
oa sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
: 014514 004737 040024 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
cH ;WAIT FOR COMMAND TQ COMPLETE 
on 014520 004737 040732 JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 
688 :GO READ STATUS FOR FORMAT OPERATION 
689 014524 737 040110 JSR nt GET 3G0 READ REGISTER(S) WITH GET SUBROUTINE 
0145 04 BR 60 IF NO ERROR 
0145 40 NOP SRETURN HERE IF ERROR 
014534 104 EMT SERROR # DEFINED BY GET SUBROUTINE 
014536 000137 015242 JMP 24$ ; 24$ IF ERROR 
om 01454 6$: 
6¢ sVERIFY NO ERRORS DURING FORMAT 
693 014542 737 054166 JSR PC, DTASTS : 
014546 05 BR 7$° 
014550 40 
01455 EMT 
014554 004 JSR pC a(SP)+ 
014556 000137 015242 JMP 24§ 
pia 14562 : 
6%6 ‘  sMOVE LOOP ADDRESSES TO NEXT OPERATION 
69 014 012737 014572 001124 MOV »SLPERR 
698 014570 000410 sSKIP TO WRITE OPERATION 
144 3 RAEAAAAARAARAAAAARAEAAAAATAAAAAEKEAARAARARAAAAREAERAAAARAAERARAAEAAAEE 
re sLOOP #2 WRITE WRITE CHECK DATA 
703 014572 8$: 
5 
:PREPARE DEVICE FOR WRITE OPERATION 
707 014572 004737 034032 JSR PC TSTPRP s PREPARE DEVICE FOR TEST 
014576 154130 J ORD 1541 * TASK Kk DESCRIPTOR AS FOLLOWS: 
S's “SELECT DEVICE & VERIEY DE DEVICE AVAILABLE 
mt CLEAR CONTROLLER T DEV ICE 
: VERIFY Rai clEAR OPERATION 
F ck A F VOLUME NOT VALID 
: 1" OR ‘PIP’ IS SET 
1 04 BR 9 : 
1 40 _ NOP : RROR 
1 : D BY TSTPRP SUBROUTINE 
1 137 015242 24$ ; 
1461 9$: 
0 , “WRITE DATA TO THE DRIVE 
711 014612 10S: 


am —— . 


es 


=—r 
“2 
a 
Se 4 | 


5 
fee 
~~) 
wm 


RANAVIIIIIIZS 
FUN =O 0ONOAAR WI 


W238 8S Ss0 


: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


OOooeoo COOOOoOCOOOOO 


wd etd od od wd = ee ed ee ceed ed eed ed eed aed ow 


PRRSS 
_ 


S SREESRERRES 


°o°.hUCe 
—" a 
~ 
ae 
ao Nn 


SRRLRSRD 


SRST 


SFSSENSSRS 


SSSSSSSS SHERRY 
= 


vedio 6 














; CHANGE _ ADDRESS 
OUN 


sWRITE DATA COMMAND 
LOAD PUT REGISTER INDEX TABLE 





TERMINATE TABLE 





STS SUBROUTINE 


:G0 TO TIMOUT SUBROUTINE 





;G0 READ REGISTER(S) WITH GET SUBROUTINE 
; GO 12$_IF NO ERROR 
sRETURN HERE IF ERROR 
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WRITE CHECK ONES 
1 1 
; 1 MOV ; CHANGE WORD C 
1 ; MOV 
1 MOV 
11 OVS 
11 OVS 
11 MOVE 
11 MOVE 
1 MOVE Twin 
11 MOVE 7200. (RO) 
JSR PC PUT 
tb BR 118 $ IF 
40 NOP TURN HERE I 
1 B00 EMT DEF I 
000137 015242 an JMP 24$ $ IF 
sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
004737 040024 JSR PC,GETSTS :G0 TO GETST 
:WAIT FOR COMMAND TO COMPLETE 
004737 040732 JSR PC, TIMOUT 
:GO READ STATUS FOR WRITE COMMAND 
004737 040110 JSR PC.GET 
0004 BR ; 
000240 NOP 
104 EMT 
000137 015242 JMP 248 : 


128: 





737 041126 PC -PRIERR 
05 BR 4 
40 NOP 
EMT 
004 JSR PC. a(SP)+ 
137 015242 eo JMP 24$ 
737 054166 JSR PC DTASTS 
5 BR 148 
4 NOP 
i EMT 
JSR PC.a(SP)+ 
137 015242 ve JMP 24$ 
7 041760 JSR SECERR 
5 BR as¢ 
40 NOP 
EMT 
JSR PC,a(SP)+ 
137 015242 - JMP 248 


;CHANGE LOOP ADDRESSES 


> CHECK ees - DURING WRITE OPERATION 


sERROR # DEFINED GY GET SUBROUTINE 
GO TO 24$ IF ERROR 















IMARY ERRORS 
ERROR 


TASTS SUBROUTINE 
CHECKS 


CERR SUBROUTINE 
CHECKS 





SEQ 0092 


: - A0 


745 018028 000410 


og 
£39 015030 


ee 01 012030 


= 
rs 


oy 
: 


~~ 
No 


SSNS NS 
TIEEFASAR AA 
Sooceo SQoooCcooco°oo ooooo 
3 
So 


UNAS pea 
Pet 4 <P Zz 
eB ed eh a od od OCD 
eed ceed ed cond weed ed eed eee oad 


& 
MMA 
a 


FSKRVO 


eae ceed emnls cond eee od eed ceed eed eed eed ed eed ed = ed 


cee coed 


Vw 


154130 


S558 
oF 


NN 


ae 
a = 


a 


: 
8 


3 
¥ 


915030 001124 


034032 


015242 


015242 


040024 
040732 


040110 


015242 


001412 


> 
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WRITE, WRITE CHECK ONES 


MOV #16$ ,SLPERR 
BR te i 





:SKIP TO NEXT OPERATION 


33 *EAAAAAATAAAAREARARAAAAAAAAAAACAAARAAAAKRERAARAARERARARAARARARAARERAEEAE 
-LOOP #3 WRITE CHECK DATA 
16$: 


sPREPARE DEVICE FOR WRITE CHECK DATA OPERATION 
JSR PC TSTPRP sPREPARE DEVICE FOR TEST 
. WORD 4130 STASK DESCRIPTOR AS FOLLOWS: 

; SELECT DEVICE & VERIFY DEVICE AVAILABLE 















sCLEAR CONTROLLER & SELECT 
; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE | ; 
: ECALIBRATE IF OR ‘PIP’’ IS SET 
: VERIFY 
BR 17$ :G0 TO 1 
NOP :RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 248 60 TO 24$ IF ERROR 
17$: 
queite CHECK DATA DATA FROM DEVICE 
MOV #WCD'GO,RMCS10 sWRITE CHECK DATA DATA COMMAND 
MOV :LOAD PUT REGISTER INDEX TABLE 
MOVB 
MOVB 
MOVB 
MOVE 
MOVE 
MOVB 
MOVB 
JSR ; 
BR 3 
NOP $ 
EMT ; 
JMP 24$ ; 
19$: 
sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC..GETSTS :GO TO GETSTS SUBROUTINE 


sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 


GO READ STATUS FOR WRITE CHECK DATA OPERATION 
JSR i :GO0 RE SES TSTERCS) WITH GET SUBROUTINE 
BR F NO ERROR 







NOP sRETURN F ERROR 
EMT ; INED BY GET SUBROUTINE 
JMP 24$ : F ERROR 





20S: 


SEQ 0095 


ee eS ES ee Snr a TS SSS 


CZRNFAO RM8O FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 13-26 SEQ 0094 
T WRITE, WRITE CHECK ONES 









CHECK FOR ERRORS DURING WRITE CHECK DATA 
JSR ;G0 CHECK 


3 




















151 7? 041126 PC PRIERR ; 
131 218 : 
151 40 NOP 
151 EMT “ERROR # DEF 
01517 JSR PC,a(SP)+ *G0 BACK FOR 
wi 513208 137 015242 ais JMP 24$ “GO TO 24$ IF 
782 015 004737 054166 JSR eC DTASTS :60 VERIFY RESUL 
015 05 BR 22$ *GO TO 22$ IF NO 
01521 40 NOP SRETURN HERE IF 
015212 1 EMT 7E # DEFINED BY 
1521 JSR PC,a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
- 13 16 000137 015242 mn JP 248 760 TO 26$ IF ERROR 
784 015 004737 041760 JSR BC ,SECERR 
015 000405 BR 2 
015 40 NOP 
015 1 ‘EMT 
015 004 JSR PC a(SP)+ 
015236 000137 015242 JMP 24$ 
785 015242 238: 
786 
at 015242 24$: 
789 s3 KEAEKAAAAARAARAAARAAALEAAAAAAEAAAAAAAAARARARAAEAAERARARARARARAEAREAAE 
S*TEST 7 WRITE, WRITE CHECK ONES W/ WCE ERROR 
© © RAAEARAAEAAAAAAAAAAREAEAAEAAEEAEAAARAAAALERAARARAARARAAARAAARAARAAREAE 
01524 TST?: 
015242 000004 $C L 
015 000240 ‘START OF TEST 
015 01 001100 #STACK S INITIALIZE STACK POINTER 
015252 013700 001276 S$BASE :RO = UNIBUS ADDRESS 
015 013701 001466 TSTOUE R1 °(R1) = DEVICE BEING TESTED 
aia 015 012737 000007 001226 #7, STESTN ‘SET TEST NUMBER IN APT MAIL BOX 
791 a3 SAEAEAARAACARAALARTAAAAAEAAAAARAARAAAARAEAAAEAASCAAARATAAARARAAAAEREER 
13 “LOOP #1 FORMAT ,WRITE,WRITE CHECK DATA 


015270 1S: 


794 

795 

fa ZPREPARE THE DEVICE FOR FORMAT 

797 015270 004737 034032 SR TSTPRP 
015274 154130 -WORD 1541 








OPERATION 
PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR FOLLOWS: 
IFY DEVICE AVAILABLE 


: AS 

sSELECT DEVICE & + 

eee CONTROLLER & SELECT DEVICE 
gt Sa lday R CLEAR OPERATION 


T 
fi ieee eal sae mr 
IBRATE IF SI OR *PIP’’ IS SET 






o 





1 016440 28$ 


WAU 
~— 





eeeceeses 9 eeeece 
s 


BBBNDHIAI AIS 
WONAUS WO 
wed) woud coed matt ae) mad wereld ech coodd 
RELFE 
Foe 


Oooooo°ooeom 


MEW 


SeRRSE | RERS 


4 
¥ 
nN 


015476 


Ris SS S88 


se 


PT3 MAC 
WRITE CHECK 


3 
S 


ONES W/ WCE 
12737 1057 144 
12737 1 1496 
12737 3 14 ? 
12737 1 141 
12737 01 1444 
012737 1412 
rr 034762 
: 1 066006 
0001 016440 
012737 7414 1174 
Bre een, 
7. 0357214 
01 1555 
17 34 
11 
i 
13 Bs 
17 
11271 
737 040360 
04 
40 
104 
0001 016440 
004737 040024 
004737 040732 
004737 040110 
04 
: 40 
1 016440 
f 054166 
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ERROR 






LOAD PARAMETERS AND . 
aT RADAD 
RAWCO 














WAIT FOR COMMAND TO COMPLETE 
JSR PC. TIMOUT 


GO READ STATUS FOR FORMAT OPERA 
JSR PC GET 
BR 
NOP 
EMT 
JMP 









28$ 


; VERIFY ie Snare DURING FORMAT — 


awe 


EMT 


GENERATE DATA BUFFER 
RMDCO 


sCYLINDER = 559. 
; TRACK = SECTOR = 0 















; COUNT = 1 SECTOR 
6; RMOF 71 eit 
#dH'GO,RMCS10 SWRITE HEADER AND DATA COMMAND 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT CALL 
BR :60 TO 
TYPE »SCTMSG : Type BAD 
~ JMP 28$ 60 "0 See. 
: MOV S,STMPO ZSTARTING ADDRESS OF PATTERN 
MOV a SThPt “RANGE OF PATTERN 
JSR PC. GENBUF [GO GENERATE BUFFER FOR FORMAT 
sLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
MOV SPUTINX Re :R2 = BYTE ENTRY POSITION 
MOVB #RMDC,(R2)+ 
MOVB R2)+ 
*OVB (R2)+ 
MOVB #RMOF.(R2)+ 
MOVB si {Re)+ 
MOVB , (R2) s TERMINATE TABLE 
THE DRIVE 
JSR BC.PUT : 
BR 5 $ 
ERT 
IMP 28$ : 
5$: 
sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETST 360 TO GETSTS SUBROUTINE 


:GO0 TO TIMOUT SUBROUTINE 


TION 
3G0 READ REGISTER(S) WITH GET SUBROUTINE 
+e TO 6$ IF NO ERROR 


RROR 
D BY GET SUBROUTINE 
RROR 










S_OF DATA TRANSFER 


D BY DTASTS SUBROUTINE 





SEQ 0095 


A - 
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WRITE, 


1S STE ons 


ITT ET 015550 001124 


BESEELERETES 
Fe 


Can 
nm 


034032 


¥ 
: 
2 


016440 


VU 
SERS 
S 
S38 
SF 
y~ 
NOOO 


01 


bP WWM 
PP 
ed cat wads od ich wed et OF 
eed erat con ed weed ced nnd eed cd a 


PS t SA St ts 

Ww _ | rs 
So Sooooooooo 

a ce cect anadh nb coat eed cond coed oud ont ond ad 

wa 

™ 


=3 
SSsss 
Se 
; ae 


WRITE CHECK ONES W/ WCE E 





JSR PC ,a(SP)+ 
eS 


FOR MORE ERROR CHECKS 


:G0 cS 
:G0 TO 28$ IF ERROR 


MOVE LOOP ons. TO NEXT OPERATION 
MOV #83 ,SLPERR 


‘Loop #2 WRITE ,WRITE CHECK DATA 
8$: 
sPREPARE DEVICE FOR WRITE OPERATION 
JSR PC TSTPRP ; PREPARE E DEVICE FOR FOR TEST 
,WORD 154130 s TASK D AS FOLLOWS: 
‘SeLecT. DEVICE a RIEY DEVICE AVAILABLE 
LEAR CONTROL T DEVICE 
VERIFY “CONTROL ER cL PEAR OPERATION 
: VOLUME NOT VALID 
“VERIFY OOAcKE ACKNOULE pocthe 
; OR ‘PIP’ IS SET 
: TION 
BR 9$ : 
NOP : 
EMT : TSTPRP SUBROUTINE 
JMP 28$ ; 
9S: 
suRITE DATA TO THE DRIVE 
MOV 
MOV #BUF ONE +4 ; Y ADDRESS 
MOV #WD 'GO A COMMAND 
MOV #PUTINK,R ‘LOAD PUT TREGISTER INDEX TABLE 
MOVE ARMD 
MOVE pnd! 
MOVB 4#RMBA 
MOVB #RMWC 
MOVB spac 
move «#200 s TERMINATE TABLE 
JSR PC PuT : ITF REGISTER(S) WITH PUT SUBROUTINE 
BR 118 : 11S IF NO ERROR 
NOP ; HERE IF ERROR 
ber “ERROR # DEFINED BY PUT SUBROUTINE 
IMP sé "60 TO IF ERROR 


11$: 


SKIP TO WRITE OPERATION 


SREAEAAAEAAARERAAAAAAAAAEAAEEAAARAEAAAEAAEARERERARARARARAKRARERAAARERERKE 





sSETUP GET INDEX T. 
JSR PC,.GETSTS 


;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 





E TO READ ALL REGISTERS 
TST 





















G 
360 TO GETSTS SUBROUTINE 


360 TO TIMOUT SUBROUTINE 


SEQ 0096 


= 


G3 00 

Jo 
Sesss5 
Via 


Pa 


e333 
oo 


Se 


eed ceed ceed eed coed eed coed ceed eed eed ee ceed wd ed eed ed es eed eed aed ed 


© 
ad 
NS 
o 


sss 
ae 
oo 


ey 
1 
1 


040110 


016440 


041126 


016440 
054166 


016440 
041760 


016440 


016010 


000001 


105256 


034032 


016440 
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ERROR 





































NOP 
EMT 
JMP 28$ 
128: 
SCHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC PRIERR FOR PRIMAR 
13§ F NO 
PC.a(SP)+ 
13$ 288 
PC .DTASTS : RIFY RESULTS OF DATA TRANSFER 
BR 14$ "60 TO 14$ IF NO ERROR 
NOP RETURN IF E 
EMT A 3 # DEFINED BY DTASTS SUBROUTINE 
JSR pC ,a(SP)+ :GO BACK FOR RROR CHECKS 
san JAP 2 3:60 TO If € 
JSR SECERR :G0 CHECK FOR SECONDARY ERRORS 
BR iss ‘ep 7 Ss F Fe RROR 
NOP sRETURN 
EMT : INED BY SECERR SUBROUTINE 
JSR BC ,@(SP)+ ; MORE ERROR CHECKS 
198 JMP 2 ; 


UNEP MOH ESS sem 


FJ SAAAAAAAAEAARAAAAAREAEAAAAEAAAAAEAAAAARAEAAAERAARAAAAEAARAREREE 


:LOOP #3 WRITE CHECK DATA 
i a #1,R3 ;R3+WCE BIT POSITION 
"ie R3,BUF TwO-2 ;CHANGE LAST WORD OF BUFFER 
:PREPARE DEVICE FOR WRITE CHECK 
Jee peas cv 







TA TION 
ra ka 
CLEAR vice G VERIFY DEVICE AVAILABLE 
ve IFY R CLEAR 


OPERAT I 
If UME NOT VALID 





17$: 


SEG 0097 


— — a ee —~—- 


+ es ee oe ee eee 


’ 


—_——_——— 


Cc ¢ 
SEG ju 












= y 
w - — 
ie : 2 
wx sa 
<§ 
== ® : 
A 
[+ 4 = 
<aw - 4 
Dace Dene ete ccd 
qn » | 2 = 3 be 
“e 2 : ae8. 
aad ~ w mee 
“a r at 
del — “vw = 
be ww be =“ i 
$3 a. 6 Cats <2 
wn tad ; 
— 
wo t= | o 
ee = 
3 233 “ 
o ye &*e *@ *@ 








CHECKS 


DTASTS SUBROUTINE 





ESULTS OF DATA TRANSFER 


“WCE’’ DETECTED?? 














. = 
w sau 
se 8 = 
a tas we) 4 
es) ow es w 
~ a S oon = 
’ ow oe 
- - on F 
Z8 oF g 
3 =o "oc & 
i “x ox © ¥ 
x pg: : 
$ re eigSeSt SeisShS@ Ss8eeks 
° <i ie . " ae 
= 3s _ a ee S ee ee 
é 4s ¢ 8 sé 3 S 
< ee ee oo om ™N ™ 
oo 
ee 3 S37 
2 g ——— 3 
Su + nu oe ° 0 
So oS ow 
2 8 = = & 382 < oe 
ee 4 $ 4 - 3 - A ea SSooo 
- 3283 &$ 8 §86 & Oe 
mw Re ~ ~~ FO ~ MAMO >>>. >on 
aw 24 RS oo Reco ReRmNnS 
a ee 33338 338 Scesaas preses 
w 
“wo «=A <x S8exz % AMARC SARRSSSSRL US NN 
_ Pe dk and aed endl aed - _- Scheel aati weal oe ei ell seek mel aul teal el atock aed ee 
° COQOOSOOCOOO COOCOoCoCOoO =) So oooooeoe ooo 
pay=y-S-t-t=3-$ pps Wor DO —N Mw- te ~_ w 
S S555 0 CSS OR OC Son Re 


“—r- 


lee 


wn 


ite 


ee re ed ed nd ed eed oh 
oa 
es 


oa 
~— 


= 


essecescs 
—_ ned we 

ced 

¥ 


me 
ee NOS 


2B 
asses 


gggagassessereeeees $ 
SOoSSoOoS OOOCOOCOOOOOOOOOSO COOCOCOCOOoOC 


ed ceed eed eed eed ed aed od ed ceed ceed coed eed ed ed eed eed eed eed coe ed eed oe ed 


FF SSIS SSS SS 


L | 
eds mod weed amd 


Sag828R8 
E 


Sree 


= 


ISS 
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a 


on-w-— 
moet ened + 
Ssouude 
esse 

ay 
$ss 
att 


001140 001142 


exad 


, Hee 


34 


041760 


S32 
asiss 


016440 
105256 


016010 


1 11 

a 

13701 Ane8 

12737 10 001226 


012737 010000 001444 
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RROR 
























238: 
sSETUP GET INDEX T 
SETUP RINATOR ort 
80 RE ae. VIA A su SOTINE 
60 1D 24s al NO RROR 
NOP :RETURN HE IF b 
EMT ZE DEFINED BY GET SUBROUTINE 
243: 
MOV :RECEI D DATA 
yt! sEXPECTED DATA 
MOV s EXPECTED $$ 
MOV sRECEIVED ADDRESS 
SUB : CT MEMORY ADDRESS 
CMP ‘ADDRESSES OK?? 
BEQ sVES!! 
EMT 
BR 
25$: CMP sDATA OK?? 
BEQ :YES!! 
EMT 
BR 
26S: 
JSR PC .SECERR ; 
a aT : 
EMT ; FINED BY SECERR SUBROUTINE 
JSR pC ,a(SP)+ ; FOR ERROR CHECKS 
-, JMP 2 ; IF ERROR 
" ‘BES BUF TWwO-2 sRESTORE DATA PATTERN 
ASL ‘SHIFT TO NEXT BIT 
BEQ : sEXIT IF DONE 
— JMP “REPEAT TEST FOR NEXT DATA BIT 
FF AAEAAAAAAAARAAAAERERAEKAAALARAAAARARAAAAARARAAAARARARARAAAAARARARRE 
“TEST 10 WRITE, WRITE CHECK MULTIPLE SECTORS 





© * REAAAAAEAAEAAAARAARERAAEREAEAEAAARAAARARAARARAARARAAAAARARARAAAAAERE 






:$ 
START OF TEST 
s INITIALIZE STACK POINTER 


#STACK 1 
$BASE b = 

IsToue 1 ?(R1) = DEVICE BEING TESTED 

#10, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 


fF AAAAAAAAARERARERARERERARAEAEARAAARAAARARERAAAAAAAAAAAAAAERAERAERRE 


:LOOP #1 FORMAT WRITE WRITE CHECK 
1$: 








MOV #FAT16,RMOFO 3:16 BIT FORMAT 


SEG 0099 


EE LT 


~~ 


oon Pe 






























RNFAO RM8O FCTNL PT3 MACRO V04.00 28- YAn-82 16:49:32 PAGE 13-30 5 SE@ 0100 
0 WRITE, WRITE CHECK MULTIPLE SECTOR 

976 jh OAD PARAMETERS AND GENERATE DATA BUFFER 

977 016474 

978 16474 012737 001057 00% MOV #559. .RMDCO sCYLINDER = 559. 

979 01 12737 001 14 MOV aT RRDAD aus anonegssns* * © 

980 01 ; 12737 1416 MOV ONE , RABAO BUS AD § 

1 16 16 012737 176774 001414 MOV 8-25 stg RMwucO ; WORD FOR 2 SECTORS (2°S COMP) 
se 16524 012737 3 001412 MOV #uH! GO URITE. ADER AND DATA COMMAND 
985 0165 737 034032 FeU ERE ee oe CURR’ cPREPARE. DEVICE FOR TEST 

dreerd 007130 -WORD 154 tly OLLOWS: 
VERIFY DEVICE AVAILABLE 
anc seLECT D LECT 
1 fLEAR 
VOLUME NOT. VALID 
OR ‘PIP’ IS SET 
016 BR 3$ 
O16 4 NOP 
18 137 017466 yd 25$ 
387 o18208 3$: 
:VERIFY THAT SECTOR IS NOT BAD 
ress 737 034762 JSR ,BADSCT 
16 104401 066006 T »SCTMSG 
16 1 EMT 
i 137 017466 om JMP 25$ 
1 12737 067456 001174 # TMPO 7ST ART ING ADDRESS OF PATTERN 
Be etre gare guest apr srt aris eames 
93 1 7 14 JSR NERATE BUFFER FOR FORMAT 
99% sLOAD PUT REGISTER seul Ine ABLE FOR FORMAT RATIION 
995 01661 or = BYTE ENTRY POSITION 
936 16616 11 
997 01 1127 “{ 
1 11 + 
1 1 sreNaC cR d+ 
i i i pn ye 
1 1 1127 7200" (R) : TERMINATE TABLE 
: 1 5$: 
1 sFORMAT THE DRI 
1 1 737 040360 JSR "Pe.put 
1 04 BR 
16602 102000 ERT 
1 017466 JMP 25$ 
1098 1 6$: 
1 sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
016670 004737 040024 JSR PC,GETSTS =60 TO GETSTS SUBROUTINE 


1010 


— a 


CZRNFAO RMGO FCTNL PT3 MACRO V04.00 28~J 


1011 


016674 004737 


2ssssssss 
Ww 
-) 
_ 
3 
— 
So 


737 
a 
40 


012737 


040732 


040110 


017466 


054166 


017466 


017010 


034032 


017466 


000061 001412 


AN~82 16:49:32 PAGE 15-31 
T10 WRITE, WRITE CHECK MULTIPLE SECTORS 


;WAIT a COMMAND TO COMPLETE 


NOP 
EMT 
JMP 25$ 
7$: 
sVERIFY NO ERRORS DURING or 
JSR PC .DTASTS 
BR 8$ 
NOP 
oor PC,a(SP)+ 
JMP aT 


:GO READ STATUS FOR * OPERATION 
JSR PC ,GET 


sMOVE LOOP ADDRES 
MOV 


sPREPARE DEVICE FOR_WRITE OPERATION 
JSR PRP 


1 





sREGENERATE DATA 
MOV #256. 


PC, TIMGUT 










FER 


ra 
ad 


Se 


SEQ 0101 


:GO0 TO TIMOUT SUBROUTINE 
REGISTER(S) WITH GET SUBROUTINE 
:G0 TO 7$ IF "- > canon 


: RETURN HE 
F INE D BY GET SUBROUTINE 
ERROR 


# DE 
16010 258 IF £ 


DATA TRANSFER 


TASTS SUBROUTINE 
CHECKS 





S_TO NEXT OPERATION 
oSLPERR 






CHANGE WORD COUNT 

: CHANGE BUS ADDRESS 
;WRITE DATA 
: STARTING ape: ba OF PATTERN 
RANGE OF PATTERN 


SKIP TO WRITE OPERATION 





REARAAAAAAAEAAARAARAAAAAERAAAAARAAARAAARARAARCARAARARARAAAAAARAREE 


WRITE WRITE CHECK 


BR 

NOP 

EMT 

JMP 
0$: 


11$ 


MOV 





154130 


10$ 


25$ 


sWRITE DATA TO THE DRIVE 


#WD!GO,RACS10 







PREPARE DEVICE FOR TEST 
ASK DESCRIP 





F VOLUME NOT VALID 
"OR *PIP’’ IS SET 


sWRITE DATA COMMAND 





TANF AO RM80 F 
0 WRITE, 
1 17 
a 8 
1 1 
1 7 
1 017 
1051 4. 
1 ‘ 1 
1 01 
1054 
1055 01707 
0171 
0171 
Bt 71 
1711 
1056 017114 
1057 
1058 
017114 
1059 
1060 
017120 
1963 
1083 017124 
0171 
0171 
oan 
171 
1 017142 
: 5 
1067 01714 
ar 
O12 
01715 
017154 
1s SF 
18 
0171 
171 
171 
17174 
aeat 
1070 017 
1071 01 
01 
01 
01721 
He 
13 


ons 


1 
1 
1074 
1 
1 
7 


8 


CTNL 


T3 MACRO VO04. 
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p 
WRITE CHECK MULTIPLE SECTORS 
01 ? sLOAD PUT REGISTER INDEX TABLE 
11 
11 
11 
1 
11 ; TERMINATE TABLE 
7 :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
ie 760 TO 12$ IF NO ERROR 
40 SRETURN HERE IF E 
O00 EMT [ERROR # DEFINED BY PUT SUBROUTINE 
000137 017466 os JMP 25$ 760 TO 25$ IF ERROR 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
004737 040024 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
sWAIT FOR COMMAND TO COMPLETE 
004737 040732 JSR PC, TIMOUT :60 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
737 040110 PC GET STER(S) WITH GET SUBROUTINE 
000240 NOP F ERROR , 
104 EMT D BY GET SUBROUTINE 
000137 017466 an JMP 25$ RROR 
:CHECK FOR ERRORS DURING WRITE OPE 
004737 041126 JSR PC -PRIERR 760 IMARY ERRORS 
tt —_ ig se 
04 EMT ERROR INED BY PRIERR SUBROUTINE 
004 JSR PC a(sP)+ *60 BACK FOR MORE ERROR CHECKS 
137 017466 ices JMP 25$ :GO TO 25$ 
737 054166 " «JSR Pe DTASTS :60 VERIEY RESULTS OF DATA TRANSFER 
05 BR 15$ 760 TO 15$ IF NO ERROR 
40 NOP *RETURN HERE IF ERROR 
1 EMT ERROR FINED BY DTASTS SUBROUTINE 
004 JSR et a(sP)+ 60 FOR MORE ERROR CHECKS 
000137 017466 pn JMP 25§ *60 TO 25$ IF 
737 041760 —~ pC ,SECERR 60 
05 BR 1 60 
130500 BAT ‘ERROR 
JSR PC.a(SP)+ 60 
iy 017466 sat MP Og 760 T 


8% 


017232 001124 


; CHANGE Loo nies. 


o SLPERR 





SKIP TO NEXT OPERATION 


SEQ 0102 


& 
w 
oO 
pert 
RS 


S3eeseesesesees 


sessss Sssssssssss 
et 
&£&o 


= 


end wed ced ed ed —_ =? 2 
od od aed —_d od od ed end 
S33 28 Ses 

t= | © 

s 3 

s 


yin 


1541 


POMN 


ek ee ed ad ed ad ad ed 
Pe | YNN ~ 
NN fonononororonrnron 


: 


e 
3 
8 


034032 


017466 


001412 


17$: 


PREPARE DEVICE F 


18$: 


425° 


mM 
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ECTORS 


WRITE CHECK 


f RAAAAAAAAAAAAAAAAAAAAAAEAAAAAAARERARARAAERAERRAREEREEREEEREEHEEE 










PEITSIPRPcPREPAR DEVICE F 
186130 RES SY PTOR 
SELECT DEVICE VICE AVAILABLE 
AR CONTR Lect DEVICE 
TION 
IF V OLUME NOT VALID 
F OR 'PIP’’ IS SET 
18$ 
D BY TSTPRP SUBROUTINE 
25$ 


ise. DATA FROM DEVICE 


20S: 


3 SETUP 9 B INDEX pratt ts READ ALL 


B2E%] 282888522 








#WCD!GO,RMCS10 


sWAIT ioe COMMAND TO COMPLETE 


GO READ STATUS FOR WRITE CHECK el 
JSR PC GET 


21$: 
; CHECK Ge ERRORS Oe aie WRITE CHECK OPERA T Lo 


NOP 
EMT 
JMP 


PC, TIMOUT 


i$ 


25$ 


bog 





sREAD DATA COMMAND 
LOAD PUT REGISTER INDEX TABLE 





Se Ge Ge Ge Ge 


REGISTERS 
TO GETSTS SUBROUTINE 


260 TO TIMOUT SUBROUTINE 








D REGISTER(S) WITH GET SUBROUTINE 
URN HERE IF. E 


w° DEFINED BY BY GET SUBROUTINE 
ERROR 


‘ERR 
:G0 TO 25 


:GO oes PRIMARY ERRORS 
:G0 TO 22$ IF NO ERROR 


SEQ 0103 


+o 
ts 
°Z 
S 
23 
bea 
“~ 
be a | 
a 
Be 
~ 
mv 
— 
Ow 


2258 
Sees 


1 
1 
1 
17 
BT 17 
1113 017 737 
174 0 
1741 & 
17414 1 
1741 
174 1 
1114 0174 
1115 017424 737 
174 vf 
174 
174 1 
174 
17 1 
1118 17444 
111 Hoe} 737 
1118 0174 1005 
1119 017454 er 7? 
11 17462 137 
1121 017466 
11 ¢ 
11 


017466 

017 
174 40 
174 1 
17476 01 
17 1 
175 12737 


Nui 


017514 


ie 


ed wed eed ed ed 2) =) 
eed ced ceed wed eed ed ed 


i 


1138 
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034032 


020706 


HECK MULTIPLE SECT 


001444 
001444 


001226 


ERT 
JSR PC a(SP)+ 
on JMP 25$ 
" «SSR eC DTASTS 
BR 23$ 
SRT 
JSR PC,a(SP)+ 
-~, JMP OSs 
" «SR PC. SECERR 
BR 24$ 
CAT 
JSR PC .a(SP)+ 
ont JMP a7 
; IT #SSEI .RMOFO 
BIS #SSE1,RMOFO 
JMP 2$ 
25$: 


;RETURN a 53 IF ERROR 

:ERROR # DEFINED BY PRIERR SUBROUTINE 
7G0 BACK FOR MORE of CHECKS 

:G0 TO 25$ IF ERR 

3:60 vER IS RESULTS OF DATA TRANSFER 
:G0 TO 23$ IF NO ERROR 

SRETURN HERE IF E 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:59 BACK F Ba RROR CHECKS 

so0 TO 25S IF E 


:GO CHECK FOR SECONDARY ERRORS 

:60 TO 24$ IF RROR 

;RETURN HERE IF E 

; ERROR Pha iin BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
;G0 TO 25$ IF ERROR 

T 16 BIT MODE W/ SSEI SET ? 


ser IN OFFSET AND 
ST AGAIN 


—k”°”D!D! UL asa. 


s*TEST T 11 WRITE, READ W/ IMPLIED SEEK 


MT TTTTTTTTITITTT TI TTI TITLE TET LETT ELE LLL ELLE LLL EELS 


+111: 


#STACK 





SBASE 

TsTaue R1 

#11, STESTN 
fF AAAAAAAERERAAAARARAERAERERARAREAAEARARAARAAAARERREEERAERREEREEEEE 


sLOOP #1 FORMAT ,WRITE ,READ 


sPREPARE THE DEVICE FOR FORMAT OPERATION 
SR TSTPRP 





-WORD 1541 


BR 2$ 
NOP 

EMT 

JMP 31$ 


sSCOPE CALL 
sSTART OF TEST 
s INITIALIZE STACK POINTER 
= UNIBUS SS 
:(R1) = DEVICE BEING TESTED 
7:SET TEST NUMBER IN APT MAIL BOX 












sPREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLL 
:SELECT DEVICE & 
iVERIF CONTROLLER & SELECT DEVIC 

; VERIFY lays CLEAR OPERATION 
ACKNOWLE IF VOLUME NOT VALID 


Pate aeteeth ee 
iat “PIP’’ IS SET 





sPACK A 
:VERIFY PA 


: . } PRECALLBRATION 

a 0 2$ NO ERROR 

; SE TURN HE F ERROR 

sERROR # D BY TSTPRP SUBROUTINE 
:60 TO 31 RROR 


:LOAD PARAMETERS AND GENERATE DATA BUFFER 


OWS: 
RIFY DEVICE 


SEQ 0104 


=~ 


Se fied 


a 
& 
: 


SS 
4 
me 


I 


> 


ed ed et AD ed etd ~—S 


ed ed ced ed ed ceed eed nd nd 
el eed ed ed ed eed = 
Ww 
oOoooo0o°oo 
SNN NNN oe 
22S 


Bos 


ak 
OooQooocoooo 


ee cd ed ee eed eed end and ed 
e 
— 


on 
nF 


oooe 


3g 
Rot 


SoooooococKoo 
wed ened womb ene cs med ed ed ed 


ee ce ce ed eed ced ceed ee ceed eed eed ed eed eed esd od wd 


SS SRVSURUNAS SHS 


co ee ee ee eel eel cd ee ee eee ee ceed ed ceed eed eed ed ee 


WS 3 


o 
oo") 
3 ox 


Seu SR FER 
3 


cand sand could wd ood wd ond ond 
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ee eh ee ed ed eed wed 


~“N 
~wN™N 


od 


eh need ed we mat oat a 
woh omd cand ek ed ca ek nd 


En 


W/ IMPLIED SEEK 


os: mv s(559..RMDCO 
MOV RMDCO 
AOV #TA2, RMDAO 
MOV #25 got 
MOV #FMT 6 - RROF O 
MOV #WH!GO,RMCS10 

:VERIFY THAT SECTOR IS NOT BAD 
sk PC BADSCT 
TYPE ,SCTMSG 
EMT 

- JMP 31$ 

MOV S$ $THPO 

JSR 1.30 

:LOAD PUT REGISTER ER INDEX | TABLE FOR FORMAT 
MOV 
MOVB moc. hg) 
MOVB 
MOVB asi 
MOVB *(R2)¢ 
MOVB Es RAOF « CR Re) 
nove 5208. (Ro) 

4$: 

sFORMAT THE DRIVE 
JSR BC .PUT 
3R 5 
ERT 
JMP 31S 

5$: 


; SETUP 1 # INDEX TG READ ~~ 
pC .GETsTS 
sWAIT FOR COMMAND TO COMPLETE 


3:G0 READ STATUS FOR _ OPERATION 
ion PC GET ‘60 =e gy yt WITH GET SUBROUTINE 























JSR PC, TIMOUT 












ORMAT 
ADE 


7 STAR 
sRANGE OF PATT 


; TERMINATE TABLE 





GISTERS 
O GETSTS SUBROUTINE 


260 TO TIMOUT SUBROUTINE 


: RETURN HERE IF 


‘RETURN HE iti 
ERROR ‘ geri BY GET SUBROUTINE 
760 TO 31$ IF ERROR 








= ver FY RESULTS OF DATA TRANSFER 


T 
CE 


S (2°S COMP) 
R AND DATA COMMAND 


TING yes Fd OF PATTERN 
G0 GENERATE BUFFER FOR FORMAT 


Re = BY BYTE & ENTRY POSITION 


Stu 


NFAO RM8O FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 15-36 
READ W/ IMPLIED SEEK 


Cok 

T11 WRITE, 
0177 
017786 


Se 
a 


Ne 8 ee ee 
ed ce eed ceed ed ed ceed ceed ed eed eed 


a we + > 


BE 


020054 


att ted ot eed 
att tad ated od 
SEL FR RUS 


80% 











EMT sERROR # DEF INED BY DTASTS SUBROUTINE 
006786 JSR PC a(SP)+ 'G0 BAC k FOR RROR CHECKS 
020706 ‘ie JMP 31§ :GO TO 31$ IF MERROR 
sMOVE LOOP ADDRESSES TO NEXT OPERATION 
020002 001124 MOV is »SLPERR 
sSKIP TO WRITE OPERATION 
ss REAAAAKAEKREAEARE (RARAERAAAEAAAKREKRAAAAARARARAARARAARAAREEKREEREKAEAKEAKAE 
:LOOP #2 WRITE ,READ 
8$: 
sPREPARE DEVICE FOR WRITE OPERATION 
034032 JSR PC ISTP sPREPARE DE 
,WORD 154 “TASK DES 
:CL 
BR 9$ 760 TO 
NOP ; 
EMT : 
020706 ‘i JMP 31$ ; 
000000 001446 MOV #0,RMDCO 
000005 001412 MOV #SEEK!GO,RMCS10 
040360 JSR PC -PUT : 
ge 1 § 
NOP : 
EMT ; 
020706 JMP 318 ; 
108: 
sSETUP GET INDEX TABLE TO READ AL 
040024 JSR PC,GETSTS ; 
sWAIT FOR COMMAND TO COMPLETE 
040732 JSR PC, TIMOUT 
:GO GET REGISTER STATUS 
040110 JSR PC GET 
118 
EMT 
020706 JMP 31$ 
11$: 





sVERIFY RESULTS OF SEEK COMMAND 
046550 JSR — ; 









SEQ 0106 


EN EE 






ed ed ed ced eed ed ed ed ed ed 


WOOO NRAMNPWNAO 


MroN 
nN 


So 





Si 


wt II MOOOOO 


eee ed eed ood ceed eed eed eed eed ed od = 


020706 
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READ MPLIED SEEK 


EMT sERROR # DEFINED BY S 
JSR Pc a(SP)+ 60 BACK FOR MORE ERROR 
JMP 31$ 1$ 


EKSTS SUBROUTINE 
CHECKS 


128: 
i$ TUP PARAMETERS AND EXCUTE WRITE DATA COMMAND 
; i sRESTORE CYLINDER 
§ [CHANGE WORD COUNT 
HANGE BUS ADDRESS 


:C 
SWRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 





; TERMINATE TABLE 





14§: 


sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 


:GO READ STATUS 4 WRITE COMMAND 
JSR GET 






















:G0 READ REGISTER(S) WITH GET SUBROUTINE 
$ :GO TO 15$ IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT Z ERROR # DEFINED BY GET SUBROUTINE 
IMP 31$ 60 TO 31$ IF ERROR 
15$: 
sCHECK FOR ERRORS DURING WRITE OPERATION 
JSR ‘PC, PRIERR CHECK FOR FOR PRIMARY ERRORS 
16$ 6$ I 
NOP ‘RETURN REE IF WO EROR 
EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC.a(SP)+ *60 BACK FOR MORE ERROR CHECKS 
‘oa 318 *GO TO 31$ IF ERROR 
PC DTASTS Y RESULTS OF DATA TRANSFER 
178 7$ IF NO ERROR 
D BY DTASTS SUBROUT INE 
PC.a(SP)+ ERROR CHECKS 
318 
at PC, SECERR 
188 


_ 
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11 aoe READ 


ed ee ed ceed ed ed eed ed eed eed ee eed Cd 
Ss = 


meh eek eed ed wed 


eon) omed ened nore cond wed 22 
SSA BA WaT 


W/ IMPLIED 


020706 


020342 


034032 


020706 


800005 


040360 
020706 


040024 
040732 


040110 
020706 


046550 


SEEK 





JSR Pc a(sP)+ MORE ERROR CHECKS 
JMP 31§ 





















18$: 
: CHANGE LOOP ADDR SES 
001124 MOV SSLPERR 
BR 50s :SKIP TO NEXT OPERATION 
33 SEAAAAAATAAKCAAERAAAAARETAAAEAAAEAARAKRAAARARAAARARAARARAAEAAAREARAAEEE 
193: 
:PREPARE DEVICE FOR READ OPERATION 
JSR PC TSTPRP sPREPARE DEV 
“WORD 154130 * TASK 
: RIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVIC 
i VERIFY CONTROLLER CLEAR OPERATION 
*PACK A EDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
BRATE IF bration OR ‘PIP’ IS SET 
BR 20$ : NO ERROR 
NOP § RE IF ERROR 
EMT : # DEFINED BY TSTPRP SUBROUTINE 
208: JMP 31$ $ 31$ IF ERROR 
001446 "MOV #0,RMDCO sSEEK TO FIRST CYLINDER 
00141 MOV #SEEK!GO,RMCS10 “WRITE SEEK COMMAND 
JSR PC PUT GISTER(S) WITH PUT SUBROUTINE 
BR 218 ERROR 
NOP 
EMT 
JMP 31$ 
218: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
:G0 GET REGISTER STATUS 
JSR eC GET 360 GO READ REG REGISTER(S) WITH GET SUBROUTINE 
2 F NO ERROR 
NOP SBE TURN SERE IF ERROR 
EMT SERROR # DEFINED BY GET SUBROUTINE 
JMP 31$ 760 TO 31$ IF ERROR 
223: 
: VERIFY RESUTS OF SEEK COMMAND 
JSR SEKSTS 







260 VERIFY ie: OF SEEK OPERATION 
:60 TO 23$ IF NO ERROR 
sRETURN HE RE. IF 


NOP ERROR 
EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 


CY VU 


ee a 
LE SS TE  —— 
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1 WRITE, READ W/ IMPLIED SEEK 

020454 004736 JSR Pt a(SP)+ MORE ERROR CHECKS 
137 020706 JP 318 ERROR 
























1 
020462 238: 
Serur PARAMETERS AND EXCUTE READ DATA COMMAND 
1 13737 144 MOV 32$ :RESTORE CYLINDER 
1 12737 141 MOV “READ DATA COMMAND 
1 12737 141 MOV ‘LOAD STARTING BUFFER ADDRESS 
1 1 mOV [LOAD PUT REGISTER INDEX TABLE 
1 1 MOVB 
1 11 MOVB 
1 11 MOVB 
1 11 MOVB 
1 11 MOVB 
1 11 MOVB 
1127 MOVB 
1 544 737 JSR 
04 BR 
NOP 
1 O99 EMT 
000137 020706 JMP 
1385 258: 
1 :WAIT FOR COMMAND TO COMPLETE 
pa 020562 004737 040732 JSR PC, TIMOUT :60 TO TIMOUT SUBROUTINE 
1388 :GO READ STATUS FOR READ OPERATION 
1 737 040110 JSR PC.GET *GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 26$ :GO TO 26$ IF NO ERROR 
7 40 NOP SRETURN HERE IF ERROR 
1 EMT sERROR # DEF INED BY GET SUBROUTINE 
000137 020706 = JMP 318 *GO TO 31$ IF ERROR 
1291 
He sCHECK FOR ERRORS DURING READ OPE 
1 Dé 737 041126 JSR BC ,PRIERR ; 
5 om 2 ; 
EMT ZE PRIERR SUBROUTINE 
JSR Pc a(SP)+ 760 ERROR CHECKS 
¥. 137 020706 - JMP 318 60 
133¢ { 737 054166 JSR pt ,DTASTS 260 OF DATA TRANSFER 
Ye BR 2 760 RROR 
NOP ‘RETURN HERE IF ERROR 
EMT “ERROR FINED BY DTASTS SUBROUTINE 
904 JSR Pc a(SP)+ 760 BAC ERROR CHECKS 
Y 137 020706 -_ JMP 318 *6O TO 31$ IF ERROR 
1399 7 041760 JSR BC ,SECERR :60 CHE 
BR :GO TO 
4 NOP sRE 
EMT * ERROR 
JSR PC,a(SP)+ *60 BA 
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WRITE, READ W/ IMPLIED SEEK 






, 000137 020706 
1 : 737 037462 
1 

by 
, 137 020706 
1 
030706 000401 
: 020710 000000 
’ 020712 
1 
4 
ie 
13701 1 
12737 12 001226 
1 19 
H 
ins 
IBS scans 
SAS 
1a ares GLa ues 
1 155 ee 1 
1 776 
1 004 
1 
1 
1 


: 





1 


1 


1008 00673) 034032 


if ti 021734 


31$ 





:G0 TO 31$ IF ERROR 


:60 START a « READ DATA BUFF 
TING ry: es poy 


STORAGE FOR DATA CYLINDER 


J ARAAAARAAEAERAAAARAAERARERAERAARARRAERARARERARERARERERRRERRERRERREEE 


READ, WRITE CHECK W/ HEAD SWITCHI 


HING 
+  RERRARERRERRARERRAAESREREARAERREREREREREEREERERRERERRRERRERE EES 


JMP 
29S: 
JSR 
. WORD 
BR 
NOP 
EMT 
JMP 
30$: 
31S: 
BR 
328: . WORD 
33$: 
SSTEST 12 


T12: 








sPREPARE THE DEVICE FOR FORMAT OPERATI 
JSR PC. TSTPRP 








ee rack 





TSTeue 


: L 

sSTART OF TEST 

3 INITIALIZE STACK POINTER 
IBUS SS 


:(R1) = DEVICE BEING TESTED 
73SET TEST NUMBER IN APT MAIL BOX 





FF SRAAAAAAAAAAARARAAAAAAAAAREAAARAAERARAARAAREARARARARARERRERRARERE 
a 


READ WRITE CHECK 
ame PARAMETERS AND GENERATE DATA BUFFER 


Atignhoro 


#559. ,RMDCO 


Alt 











1581 






SECTOR = 30. 
rohnne 
an elie = 559. 
BUS SS 
COUNT FOR 2 SECTORS (2°S COMP) 
COMMAND 


‘Te bit = 










;PRE 
: TASK A OWS: 
E DEVICE AVAILABLE 
' ELECT DEVICE 


OPERATION 
UME NOT VALID 
“PIP’’ IS SET 





SEQ 0110 


- 


le cet ce ee ed eed ed ee ed eed eed ed ed eed 
Ww wa 
ee eed med wed ed od ed ceed ee eed eed ceed eed eed ed eed 


33 


a a —_d od wd et eed 


cmd wed) eon wed eed eed arad ad ond ond 
oe med an aed ced 


Seo 





co eet nh ed ed A a ESD 


8 cD cmd red eed ced eed ed od 
ANANANNSE 


neh Ph med mt ed oe CO OD 
med words smd eat ned) oh cad am ond 


004737 


CRO Vv04.00 


MA 
CK W/ HEAD Sw 





021734 





001412 


JAN~82 16:49:32 PAGE 15-41 
CHING 


4$: 
;SETUP PARAMETER 






we 


MOV * 
MOV oPur 
MOVB #RIMDC 
MOVB WRADA 
aCVB HRB 
MOVB ARC 
Se 
move «#200. 
5$: 
JSR PC .PUT 
BR 6$ 
NOP 
EMT 
JMP 26$ 
6$: 


sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


:GO READ REGISTER STATUS 
PC GET 


JSR ° 
BR 
NOP 
a 
7$: 
3G0 VERIFY RESULTS OF SEEK 
JSR Bgeseks Ss 
BR 
NOP 
OS a(sp)s 
a - 568 


gREAD DATA FROM THE DRIVE 
' $10 








er DRIVE ON CYLINDER 


4 SEEK cpa 
zRé = BYTE ENTRY POSITION 


; TERMINATE TABLE 


GISTER(S) WITH PUT SUBROUTINE 
ERROR 
IF ERROR 
D BY PUT SUBROUTINE 








sREAD DATA COMMAND 
sLOAD PUT REGISTER INDEX TABLE 


s TERMINATE TABLE 
:G0 WRITE REGISTER‘S) WITH PUT SUBROUTINE 


me 


SEG 0111 


Ee TT 


ed ed et et ds ws = 


eed ee ceed eed ed eed ed eh ee ~ b d 


—2 at -_ ad and od 


SES SS Sey 


S88 sesse 


~ 


LM 


& 


1 
1 
1 
1 
124 


021242 


ag TS MACRO V04.00 
AD, WRITE CHECK W/ HEAD SwIT 


ie 021734 


004737 


021246 004737 


mad coeds 


VUCUCCUCUUUUUUIGRORI 


eed ed ee eed ee ceed) eed ed eed ee eed eens 8 ceed ed een ceed eed eed od 


aia 





1 7 
1 

1 40 
1 1 

1 


132 oxars7 


—— 





1368 800610 


040024 
040732 


040170 


021734 


000040 


041126 


021734 
054166 


021734 
041760 


021734 


021370 


001400 


001124 
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BR 10$ 
NOP 
EMT 
JMP 26$ 


; SETUP a INDEX peat ists READ Att 


GISTERS 
0 GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


:GO READ STATUS FOR sia COMMAND 
JSR 


760 TO TIMOUT SUBROUTINE 








PC GE 360 READ REGISTER(S) WITH GET SUBROUTINE 
118 “GO T M18 F NO RROR 

EAT ; ERROR ab I Leo By GET SUBROUTINE 

JMP 268 ‘60 TO oS 1 PMERROR 


sCHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 
NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 


BIT S596 .ARERZI "SSE* BIT SET ? 
BNE IF YES 





sCHECK FOR ERRORS etre READ ~~ 






JSR PC gPRI ERR ; PRIMARY ERRORS 
BR :60 TO 12$ IF NO ERROR 
NOP ; 
OSR sé. a(SP)* : 
JMP 26$ : 
12$: 
JSR pC ,DTASTS : 
BR 1 : 
NOP s RROR 
EMT 5 BY DTASTS SUBROUTINE 
JSR PC .a(SP)+ 3 ERROR CHECKS 
JMP 268 : 
_ JSR SECERR 
BR nag : 
NOP 3 
OcR SO «PC.a(SP)* : 
IMP 26$ ; 
14$: 


PONS RV SB. SLPERR 


{AAAS AAAAAEASEAERARESEREREEEERARRAEAARAARERARAAAEAERARARAAERAAEEE 


‘Loop #2 WRITE CHECK DATA 
15$: 


sSKIP TO NEXT OPERATION 





SEQ O112 
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WRITE CHECK W/ HEAD SWITCHING 


RVUVUGL VGN 


aed eed tod 9 eed SD ow eed ced od eed 


al hha at et et ae aa -an 
w 


meh eed eed ed weed com ee et ed eed 


ROVUVGVUNY 


sPREPARE DEVICE FOR ree OPERATION 
PC, TSTPRP 


























004737 034032 JSR 
1 WORD 
AVAILABLE 
ICE 
AR OPERATION 
youve NOT VALID 
OR ‘PIP’ IS SET 
37 04 BR 16$ 60 TO 
O09 EMT ZERROR EF INE BY TSTPRP SUBROUTINE 
4¢ 137 021734 ~ JMP 26$ 60 TO 2 ERROR 
410 012737 000005 001412 "MOV #SEEK!GO,RMCS10 sLOAD SEEK COMMAND 
41 737 040360 JSR PC ,PUT 360 WRIT REGISTER(S) WITH PUT SUBROUTINE 
4 BR 1 ‘60 TO 17$ IF NO ERROR 
4 0 NOP RETURN HERE IF E 
4 EMT TERROR # DEFINED BY PUT SUBROUTINE 
4 000137 021734 i JMP 26$ 760 TO 26$ IF ERROR 
:SETUP GET INDEX TABLE TO READ AL REGISTERS 
004737 040024 JSR PC, GETSTS TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
004737 040732 JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 
:G0 READ REGISTER STATUS 
737 040110 SR GET :60 READ REGISTER(S) WITH GET SUBROUTINE 
0 18$ ERROR 
Y GET SUBROUTINE 
137 021734 26$ 
18$: 
GO VERIFY RESLUTS OF SEEK 
737 046550 Isr TS OF SEEK OPERATION 
NOP RROR 
Sex ase pr ero 
137 021734 JMP 6s 
19$: 
gREAD DATA FROM DEVICE 
1 001412 "MOV #¥CD!GO,RMCS10 sREAD DATA COMMAND 
1 MOV #PUTINX Re “LOAD PUT REGISTER INDEX TABLE 
1 MOVB #RMDA, (R2)+ 
11 MOVB §§ #RMOF. (R2)+ 
11 MOVB #RMDC.(R2)+ 
11 MOVB § #RMBA.(RO)+ 
11 MOVB  #RMWC.(R2)+ 
1 move #RMCS1,(R2)+ 








021544 112712 
44 1 737 
1334 
is BR 
1 0001 
1 
004737 


021566 


021572 004737 


SS £5 S5f 


&- 
wa 
os 
tt ett) 


14 

18 

1454 

18 BIE ose 

1239 1622 00 30 

1458 

1459 

1460 737 
05 
40 

1461 

182 BIE ure 
40 
1 

1463 

1464 7 

P] 

40 
1 

1465 

1 737 

146 9 

1 

1 7 

4 137 

14 

14 





AO RM8O FCTNL PT3 MACRO V04.00 
READ, WRITE CHECK W/ HEAD SWITCHING 


000040 


041126 


021734 
054166 


021734 
041760 


021734 
001000 
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mOV8 #200, (R2) 
JSR PC PUT 60 RITE REGISTER(S) WITH PUT SUBROUTINE 
BR 218 760 TO 218 IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT SERROR # DEFINED BY PUT SUBROUTINE 
718 JMP 26% :60 TO 26$ IF ERROR 
sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :60 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE CHECK OPERATION 
JSR PC GET :60 READ REGISTER(S) WITH GET SUBROUTINE 
228 0 228 IF RR 
NOP ; ‘RETURN HE 
EMT SERROR # (DEFINED BY GET SUBROUTINE 
JMP 26$ 760 TO 26$ IF ERROR 
:CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 
500 NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 
001400 BIT #SSE.RMERZI 31S "SSE* BIT SET ? 
BNE “BR IF YES 
:CHECK FOR ERRORS DURING WRITE CHECK OPERATION 
JSR PRIERR 360 CHECK FOR PRIMARY ERRORS 
aR RROR 
EMT ; BY PRIERR SUBROUTINE 
JSR PC.a(SP)+ *60 BACK FOR MORE ERROR CHECKS 
sid JMP 268 760 TO 26$ IF ERROR 
JSR bt ,DTASTS :60 VE ees | RESULTS OF DATA TRANSFER 
BR 2 760 T IF NO ERROR 
NOP *RE OT URN HE RE IF ERROR 
EMT : # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ : CK FOR MORE ERROR CHECKS 
IMP 26$ :60 TO 
248: 
JSR Pt SECERR ; 
BR 25$ : 
NOP ; 
EMT ; 
JSR BC ,@(SP)* ; 
= , 
001444 BIT as E1,RMOFO TES 
BNE : i! 
14 MOV Haat RMDAO :TRACK = 1 
14 als “SET SSEI 
JMP ; 
263: 





SEQ 0114 





—’d ond Dd 

emanatenaee 

SOSONOUR 
o 


eee ed ceed ed eed weed eed ed ed eed eed ed od od ed 


RE NS 
88 
e 


Qa 


S33 


Pe ek ee ed ee eh ed eed nd ad eed aed ed ed 
VUAULALA 
ab ad eed ed eed ed 
OmnFwWrrs—o 
td ad td ed ed I I_OO 
ek ae ed ed ed ed ed ed 


CRO VO4.00 28-JAN-82 16:49:32 PAGE 13-45 nian SEQ 0115 
K W/ MID-TRANSFER SEEK 


RS 


FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAHARERARAEAERARAERAAREEEREEE 


SATE ST 13 READ, WRITE CHECK W/ MID-TRANSFER SEEK 


MTTTTTTETTTITITIT LITT LIT LITLE TITLE EEL 


5 4 CALL 
0 NOP SSTART OF TEST 
1 1190 MOV es TOgk if s INITIALIZE STACK POINTER 
1 1 6 MOV sRO = co eeine 
> 900078 




















E.R 
1 MOV Tsraue 7(R1) = DEV NG TESTED 
001226 MOV ris gStn 73SET TEST NUMBER IN APT MAIL BOX 
$3 *RAEAEAAAAAAAEARAAAARAAERARARAARARRARARARAAAAARAAAAERRARAKREAKRKAERE 
‘LOOP #1 READ,WRITE CHECK 
{LOAD PARAMETERS AND GENERATE DATA BUFFER 
013737 001334 001420 ; MOV LSTRK RM RMDAO :SET LAST TRACK AND 
11 i350 36 0014 0 MOVB RMDAO ST SECTOR 
012737 010000 001444 - MOV eerie. RMOFO 716 BIT FORMAT 
01 737 001057 001446 ~~ MOV #559. ,RMDCO sCYLINDER = 559. 
Or 7? 177 001414 MOV #=256.*2,RMWCO ‘CHANGE WORD COUNT 
1 r30 104254 001416 MOV ONE :C BUS ADDRSS 
012737 70 00141 = MOV #RD ,RMCS10 “READ DATA COMMAND 
:PREPARE DEVICE FOR READ OPERATION 
004737 034032 JSR PC TSTPRP :PREPARE DEVICE FOR TEST 
54130 ,WORD 1541 *TASK DESCRIPTOR AS FOLLOWS: 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEA CONTROLL LECT DEVICE 





RATION 
F VOLUME NOT VALID 
“OR *PIP’’ IS SET 
TION 


4$ ; 


E88 
PS 


MT 
000137 022546 MP 19$ 


4$: 
*READ DATA FROM THE DRIVE 





001412 MOV sREAD DATA COMMAND 
MOV ;LOAD PUT REGISTER INDEX TABLE 
MOVE 
MOVB 
MOVB 
MOVB 
MOVB 
MOVE 
MOVB s TERMINATE TABLE 
JSR :GO WRITE REGISTER(S) WITH PUT SUSROUTINE 
BR :GO TO If ERR 
NOP RETURN HERE IF ERROR 


; nm 6 6UY 
CZRNFAO RM8O FCTNL _PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 15-46 SEQ 0116 | 
T13 READ, WRITE CHECK W/ MID-TRANSFER SEEK | 


















132 1 EMT sERROR # DEFINED BY PUT SUBROUTINE 
099134 Ones 39 022546 JMP 19$ °G0 TO 198 IF ERROR 
1517 140 6S: 
1219 sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
- 922140 004737 040024 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE | 
1289 sWAIT FOR COMMAND TO COMPLETE 
022144 004737 040732 JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 
1338 :GO READ STATUS FOR READ COMMAND 
1524 004737 040110 JSR PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 7$ *G0 TO 7$ IF NO ERROR 
000240 NOP “RETURN HERE IF ERROR 
104 EMT *ERROR # DEFINED BY GET SUBROUTINE 
in 000137 022546 JMP 19$ 760 TO 19$ IF ERROR 
1396 sCHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 
13 z ;D0 NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 
1399 032737 000040 001400 BIT aSSE, »RMER2! s1S "SSE* BIT SET ? 
153¢ 001030 BNE “BR IF YES 
15 :CHECK FOR ERRORS DURING READ OPERATION 
153 004737 041126 JSR BC. »PRIERR 360 C 
000405 BR ; 
000240 NOP SRE 
104000 EMT ERROR 
004736 JSR Yall 3:60 
" 000137 022546 i JMP 1 60 
123¢ 004737 054166 ; JSR PC DTASTS 60 RESULTS OF DATA TRANSFER 
000405 BR 9$ *60 TO F NO ERROR 
000240 NOP [RETURN HERE IF ERROR 
104 EMT *ERROR # DEFINED BY DTASTS SUBROUTINE 
004 JSR pC ,a(SP)+ 760 BACK F ERROR CHECKS 
re 000137 022546 wa JMP 1 760 TO 19$ IF ERROR ! 
1239 004737 041760 : JSR PC .SECERR :G0 CHECK FOR SECONDARY ERROR | 
05 BR 1 *60 TO 10$ IF NO ERROR 
40 NOP SRETURN HERE RROR 
1 EMT “ERROR 
004 JSR pc .a(SP)+ *60 BA 
000137 022546 JMP 1 760 TO 
1338 10$: 
1540 :CHANGE LOOP ADDRESSES 
1541 012737 022266 001124 MOV #113, SLPERR 
134¢ 10 BR 12$ sSKIP TO NEXT OPERATION 
1544 SL RRERARRREEERERERERERARREEEAARARARERREREEEARARERREERERAERRERERAREREE 
1345 “LOOP #2 WRITE CHECK DATA 
1347 022266 11S: 
1348 :PREPARE DEVICE FOR WRITE CHECK OPERATION 
1550 022266 004737 034032 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
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T13 
022272 154130 


74 
7 


S558 
oF 


Soooo 
RORORORORD 


SSSSSoocl= 
23s 
oS & 
bd td md I I IOO 


el ced el ced ceed eed ed ced ceed eed ed eed eed eed 

PRPS RANADAAAA 

a SS Seoul 
eel ceed ceed eed cd emt cre! aed ome 


350 7 
022354 0064737 
000404 
44 40 
‘ 8 0001 
1387 
, 022372 004737 
1569 
022376 004737 
1571 
15 
15 4 737 
04 
40 


G55) 39035 
ae 


<a A RADpoelonAdenoe 
ReSIaNe 


022546 


022546 


040024 
040732 


040110 


022546 


000040 


041126 


001412 


001400 


READ, WRITE CHECK W/ MID-TRANSFER S 























.WORD 154130 : TASK DES 
SSELECT D AVAILABLE 
CLEAR c ICE 
“VERIFY CONTROL TION 
“PACK ACKNOWL UME NOT VALID 
“VERIFY PACK 
SRECALI ‘PIP’ 1S SET 
“VERIFY RECAL IBRAT ION 
BR 12$ :60 TO 1 NO ERROR 
NOP “RETURN HER 
EMT TERROR # DEFINE TSTPRP SUBROUTINE 
JMP 19$ 760 TO 19$ IF ERROR 
128: 
i WRITE CHECK DATA FROM DEVICE 
"MOV wc: 60, RMCS10 :READ DATA COMMAND 
MOV #PUTINX.R ‘LOAD PUT REGISTER INDEX TABLE 
MOVB 
mova 
MOVB 
JSR ; 
EMT : 
19$ ; 
14$: . 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 260 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :60 TO TIMOUT SUBROUTINE 
:G0 READ STATUS FOR READ OPERATION 
JSR Pe GET 760 READ REGISTER(S) WITH GET SUBROUTINE 
158 760 TO 15$ IF NO ERROR 
re HE ERROR 
EMT *ERROR # ED BY GET SUBROUTINE 
JMP 19$ 360 TO RROR 





;CHECK TO SEE IF THIS T 
NOT EXECUTE THIS TEST IN T 
BIT #SSE ,RMER2I :1S "SSE" BIT SET ? 
BNE 138 sBR IF YES 





sCHECK FOR ERRORS DURING READ OPERAT 
Ny ots JERR :G0 


NOP 
EMT 
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4 READ, WRITE CHECK W/ MID-TRANSFER SEEK 
12246 JSR a(SP)+ 360 
, v re ot 022546 148: JMP 198 360 Tf 
1884 03 ae 054166 ’ JSR BE SD TASTS 760 VERIFY RE TOF DATA TRANSFER 
’ 4 ; 
133456 NOP SRETURN HERE IF ERROR 
iy 246 EMT sERROR # DEFINED TASTS SUBROUTINE 
133463 JSR pc .@(SP)+ 760 BACK FOR CHECKS 
_ Y< is 022546 _ JMP 1 7:60 TO 19$ IF ERROR 
1886 02470 a 041760 ; JSR Pc .SECERR 69 CHE FoR SECONDARY ERRORS 
122676 NOP *RE E IF ERROR 
922506 EMT : # DEFINED BY SECERR SUBROUTINE 
122506 ISR PC ,@(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
ain 54 022546 ~<a :G0 TO 19$ IF ERROR 
1388 Y¢ ! 032 001000 001444 : #SSEl. »RMOFO :TEST 16 BIT MODE W/ SSEI SET ? 
1991 Gooese ‘Vizrar uaa? Bole sarerimons, — juas Secon 
1598 2 0527 1 1444 31. AMD RMOF O 7SET SSEI BIT IN RMOF AND 
1593 022542 022004 2s sTEST AGAIN. 
1393 oO" haf 
1596 STEST 14. WRITE, READ W/ HCE ERRR 
2 POOR 
LION" 1____ OOO nn 
a 


sseGre CALL 

TART OF TEST 

s INITIALIZE STACK POINTER 
ADDRESS 







eSTAEK 












356 276 
013701 466 TST s(R1) = DEVICE BEING TESTED 

— t ee 000014 001226 TeTOUe Rt ::SET TEST NUMBER IN APT MAIL BOX 
15 { AAAAARAAAAAAAERARAAAARATAAEAREAEAAARARAAEAAERERRES RAERRRERARREEREE 
160 “Loop #1 FORMAT ,WRITE READ 

1601 022574 012704 000000 mov : :R4 = 1ST HEADER WORD 

199 029600 313503 000001 1S: MOV wens *R3 = HCE BIT 

16 : 

160 PREPARE THE DEVICE FOR FORMAT OPERATION 

1 PARE DEVICE FOR TEST 


0ce60k fh U4 034032 a oe gigiPnr 


FOLLOWS: 
RIFY DEVICE AVAILABLE 
ER CLEAR DEVICE 


RATION 
F VOLUME NOT VALID 
oe ee 

OR “PIP IS SET 


STPRP SUBROUTINE 


BR 3$ 
NOP 
1 EMT 
024416 JMP 47$ 


Srorore 


ite 
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W/ HCE ERROR 


WRITE, READ 
1687 
1 & 
1610 4 012737 
1611 6 12737 
a 12737 
161 12737 
1614 12757 
1675 012737 
1218 
161 





: 





1 
1 12737 
She Se 
1 737 
; 
1 S 030364 
1 001403 
i 525 Sooaee 
022744 Seosee 
i 
1 
1 01270 
1 11 
1 11 
1635 11 
1 11 
1 11 
1 11 
! 2 11271 
149 F538 oguzs7 
40 
104 

, 0001 
1548 

023026 004737 
12 
oe 023032 004737 
1 
164 





“LOAD PARAMETERS AND GENERATE DATA BUFFER 





38: MOV #559. ,RMDCO CYLINDER. = 
OV #TA2. RMDAO : 
MOV #-258. ,RMWCO + 2 36 
MOV MT16,RMOFO :16 BIT 


aF 
MOV #WH!GO,RMCS10 
; VERIFY by aes IS NOT BAD 






= 559. 


ims K = 2. SECTOR = 0 


eo (2°S COMP) 


WRITE HEADER AND DATA COMMAND 





DRESS OF PATTERN 


G0 GENERATE BUFFER FOR FORMAT 


sSET OR RESET FOR HCE? 


,BADSCT SE 
BR IF 
TYPE  ,SCTMSG SE 
EMT EF 
- JMP 46$ I 
: MOV aTERO S,STMPO STARTING AD 
MOV STP} *RANGE OF PATTERN 
JSR 40 SENBUF 
:CHANGE HEADER WORD TO FORCE HCE DURING WRITE & READ 
iT — : 
Bic ,BUFONE(R4) :RESET BIT FOR HCE 
5$: BIS SS BUFONE(R4) sSET FOR HCE 


jLone PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 









sR2 = BYTE ENTRY POSITION 


; TERMINATE TABLE 

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
760 TO 8$ IF NO ERROR 

>RETURN HERE IF 


ERROR 
;ERROR # DEFINED BY PUT SUBROUTINE 
GO TO 46S IF ERROR 


; SETUP [a TABLE TO READ ALL REGISTERS 


PC .GETSTS 


sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


:GO READ STATUS FOR _ OPERATION 
JSR PC GET 


EMT “ERROR & 





3:60 TO GETSTS SUBROUTINE 


3:60 TO TIMOUT SUBROUTINE 


SEQ 0119 


' 
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; 4 WRITE, READ W/ HCE ERROR 

































000137 024416 JMP 46$ 360 TO 46$ IF ERROR 
reso SER 8: 
16 ; sVERIFY NO ERRORS DURING FORMAT 
1653 0 737 054166 JSR PC EDTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
BR 760 TO 10$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
1 EMT sERROR # DEFINED BY DTASTS SUBROUT INE 
JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECK 
137 024416 SMP 46$ *GO TO 46$ IF ERROR 
1636 74 10$: 
16 :MOVE LOOP ones TO NEXT OPERATION 
165 023074 12737 023104 001124 MOV PERR 
1658 102 AEST BR :SKIP TO WRITE OPERATION 
1660 FAAAAAAAAAEAAAAAAAREAAAAREEAEAERAAERERARARAERRREEREEREEREEEREKEE 
1661 ‘Loop #2 WRITE .READ 
1668 023104 11$: 
1665 sPREPARE DEVICE FOR WRITE OPERATION 
1666 023104 004737 034032 JSR Pe TSTPRP ;PREPARE DEVICE FOR TEST 
023110 1541 .WORD 154130 *TASK DESCRIPTOR AS FOLLOWS: 
sSELECT DEVICE & € VERIFY DE DEVICE AVAILABLE 
iC EAR CONTROLL T DEVICE 
RIFY CONTROLLER cL PEAR’ OPERATION 
ACK IF VOLUME NOT VALID 
; RIFY PACK ACKNOWLEDGE = 
: CALIBRATE, ak SKI OR ‘PIP’ IS SET 
112 04 BR 12$ IF NO ERROR 
114 40 NOP : HERE IF ERROR 
1146 1 EMT : # DEFINED BY TSTPRP SUBROUTINE 
120 000137 024416 JMP 46$ : 46$ IF ERROR 
1667 124 12$: 
1 “WRITE DATA TO THE DRIVE 
16 138: 
16 12737 MOV 
16 mov 
1674 1 ooage MOV 
1675 11 MOVB 
1 26 11 MOVE 
1 11 MOVB 
1678 11 MOVB 
1 11 MOVB 
1 11 MOVB 
11 MOVB ( s TERMINATE TABLE 
1 737 040360 JSR PC. PUT 260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
1 BR 148 *GO TO 14$ alt NO ERROR 
1 40 NOP :RETURN HE RROR 
1 EMT RROR # gQEF NED BY PUT SUBROUTINE 
137 024416 JMP 46$ / 46$ IF ERROR 
1684 4 148: 





—_-—— oe == - 
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T14 WRITE, READ W/ HCE ERROR 







1685 
1486 sSETUP GET INDEX T E TO READ ALL REGISTERS 
mene 023224 004737 040024 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
1888 :WAIT FOR COMMAND TO COMPLETE 
' 023230 004737 040732 JSR PC, TIMOUT :60 TO TIMOUT SUBROUTINE 
1690 :G0 READ STATUS FOR WRITE COMMAND 
1691 34 737 040110 JSR PC GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
40 BR 158 $60 TO 158 IF NO ERROR 
4 40 NOP SRETURN HERE IF ERROR 
44 1 EMT sERROR # DEFINED BY GET SUBROUTINE 
000137 024416 JMP 46$ [G0 TO 46$ IF ERROR 
1692 5 15$: 
1694 :CHECK FOR ERRORS DURING WRITE OPERATION 
1695 52 004737 041126 JSR PC PRIERR 760 C 
5. BR 16$ 760 T 
40 NOP SRETURN HE 
1 EMT SERROR # D PRIERR SUBROUTINE 
004 JSR PC.a(SP)+ *GO BACK F RROR CHECKS 
137 024416 JMP 46$ 760 TO 4 
D 











1 
1697 sDECODE THE TYPE OF ERROR PRODUCE 
169 3678 005704 — R4 : 
74 001011 BNE 17$ ; 
1 76 032703 020000 BIT SF .R3 ;SHOULD SSE BE SET ? 
1 104 BNE YES ! 
1 010000 BIT #ERT16.R3 : SHOULD FER BE SET ? 
1 1 106 BNE “YES ! 
1 1 3 140000 BIT FASE USE 3 SHOULD BSE BE SET ? 
16 001111 BNE “YES !! 
170 VERIFY THAT A HEADER COMPARE ERROR WAS DETECTED 
1719 053320 032737 000200 001352 BIT #HCE RARER sWAS HCE DETECTED 2? 
71 001132 BNE sYES !! 
1714 737 054166 JSR pe ,DTASTS 360 VERIFY RESULTS OF DATA TRANSFER 
05 BR 1 8$ IF NO 
NOP 
34¢ isk PC, @(SP)* 
3 3 JMP 46$ 
11a 0533 1142 | «moyen SBDDAT 
19 3 oOT140 MOV 
1718 34 MOV 
1 3 BNE 
] t INC 
: ‘ 19$: MOV aa = BIT POSIITON 
1 EMT 
JMP 
1 sVERIFY THAT SSE IS SET 
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READ W/ HCE ERROR 


004076 


7 


000040 


054166 


024416 


Suit 


024416 


000020 


054166 


024416 


001382 


024416 
100000 


054166 


024416 


0° 1400 


024416 


041760 


001400 


001352 


001400 


20S: 


238: 


26$ 


IS 
EMT 
JMP 





EMT 


EAT 
JSR 
JMP 
MOV 


MOV 
EMT 
JMP 


JSR 
BR 


EMT 


#SSE ,RMERZI 
26$ 


PC DTASTS 
218 


PC,a(SP)+ 
46$ 


Reon 
#SSE.SGDDAT 






46$ 
THAT A FORMAT ERROR WAS 
#FER,RMERTI 
26$ 


cage Aste 


PC,a(SP)+ 
46$ 


#FER, SGDDAT 
RMERTI SBDDAT 
34 

46$ 





#BSE .RMER2I 
26$ 


Sh praers 


PC.a(SP)+ 
46$ 


eset 





66% 
CHECK FOR OTHER ERRORS 


—_— 


1S SSE SET ? 
sVEs 3: 


TS OF DATA TRANSFER 








TASTS SUBROUTINE 
CHECKS 


DETECTED 
sWAS FER DETECTED 27 
sYES !! 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO0_ TO 23$ IF NO ERROR 

TURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR ERROR CHECKS 
:G0 TO 46$ IF ERROR 


sEXPECTED STATUS 
sRECEIVED STATUS 






THAT A BAD SECTOR ERROR WAS DETECTED 


sWAS BSE DETECTED ?? 
sVES !! 


260 yeni RESULTS OF DATA TRANSFER 
G0 TO 25$ IF NO ERROR 

sRETURN HERE IF 
sERROR # DEFINED BY DTASTS SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 
G0 TO 46$ IF ERROR 

sRECEIVED STATUS 

sEXPECTED STAIUS 









FOR SECONDARY ERRORS 
IF NO ERROR 





GO CHE 
260 TO 
sRETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 


SEQ 0122 
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WRITE, READ W/ HCE ERROR 







004736 JSR PC.a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
137 024416 JMP 46$ 760 TO 46$ IF ERROR 
1763 273: 
1969 : CHANGE LOOP ADDRESSES 
1765 023634 012737 023642 001124 MOV #28$, SLPERR 
1 3 { AAAAEAAAAAERAAEAAERAAAAAERAAAAAARAAERERARARAAEAAAAAAARAARAEAAREEEEARE 
1771 :LOOP #3 READ 
He 
ee 023642 28$: 
1775 . <a PREPARE DEVICE FOR READ pOPERATION 
oesece $50130 ‘seep 1Sh130 
CK ACKNOWLE 
:VERIFY BA PACK Ac 
CALIBRA 
; VERIFY 
04 BR 29$ ; 
40 NOP : 
EMT ; 
137 024416 JMP 46$ ; 
293: 





tt ed wh at ed et ed a st 
S32 SSF 48=—- SSIFSELERKANSTIIS 
<* UPRIRORO 





1 
Th 
1 
799 023766 
1809 023772 


NN 


ot ot ot ot od =  BIOOOO 


eed aud cmeti ooed woh med ead nd eb aes ed 


004737 


004737 





rt ta DATA FROM DEVICE 


: CHANGE BUS ADDRESS 
SCHANGE WORD C 
READ 


DATA COMMAND 
sLOAD PUT REGISTER INDEX TABLE 











E TO READ ALL REGISTERS 


sSETUP GET INDEX T 


040024 JSR PC,GETSTS 3:60 TO GETSTS SUBROUTINE 
sWAIT FOR COMMAND TO COMPLETE 
040732 JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 


3GO READ STATUS FOR 7 OPERATION 
JSR PC,GET 


040110 3G0 READ REGISTER(S) WITH GET SUBROUTINE 


SEQ 0125 
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T14 WRITE, READ W/ HCE ERROR 
377 328 3:60 
:RE 
024416 Ow 46S °60 
, 32%: , 
1 sCHECK FOR ERRORS DURING, READ OPERA 
1 7 041126 JSR PC ,PR IERR 360 
60 
sRETURN 
“ERROR PRIERR SUBROUTINE | 
PC.a(SP)+ +60 RROR CHECKS 
137 024416 _- 46$ 760 RROR 
1 704 ; R4 1S 
; tee 34$ :N0 !! 
1 3% 703 020000 #SSF R3 : SSE BE SET ? 
} ane 
01 #FMT16,R3 : SHOUL LD FER BE SET ? 
1 ie 140000 WMSE! USE ,R3 : SHOULD BSE BE SET ? 
111 41$ YES !! 
i sVERIFY THAT A HEADER COMPARE ERROR WAS DETECTED 
1 32 000200 001352 "gir E.RMER11 sWAS HCE DETECTED ?? 
034086 rates BNE a38 YES !! 
1 737 054166 PC DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
35§ 5$ IF NO ERROR 
7 RE IF ERROR 
DEF INED BY DTASTS SUBROUTINE 
PC.a(SP)+ MORE ERROR CHECKS 
’ 137 024416 a 46$ F ERROR 
Mes Gasite SUaTaT BaIRee SSIS eee 
1 1 cmpD 
1 1 1174 TMPO 
1 1 1176 36S: RS STMP1 
; 1 é 
1 137 024416 46$ 
1 , gYERIFY THAT SSE BIT IS SET 
1 146 7 000040 001400 "> #SSE .RMER2I 31S SSE SET ? 
a341 at gy BNE 438 ves !! 
1 1 7 054166 JSR pC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
41 BR :60 TO IF NO ERROR 
1 *RETURN HERE IF ERROR | 
1 EMT ‘ERROR # DEFINED BY DTASTS SUBROUTINE | 
1 JSR PC.a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
1839 $801 024416 sss. 2” 465 G0 TO 46$ IF ERROR | 





CZ 
hb 
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Slats ss 
14 114 
114 


1 
1 


New 


Es 
5s 


et ce le ed ceed el eel nl ceed eld els wold 

BAEEFELERERE 
tak 

~ 


Se2= 
soe 





S55 
ess 
Er 
Re 


ed ced eed ed eed ed eed eet ed esd = =0=d 


mek tt at os ws 
Ww 
== 
&£&o 
Sec See 
—— 
— = 
we 
NM ~“ 


SANOAR 
& 
Sees 
2288 


024416 


000020 


054166 


024416 


001382 


024416 
100000 


054166 


024416 


14 
1 


000350 


041760 


024416 


001352 


01142 


001400 


001166 


» VERIFY 


40S: 


_* 


423: 


igpeck FOR OTHER ERRORS 


44$: 


45$: 


























R21, $BDDA\ :GET RECIEVED STATUS 
MOV R 1 $GDDAT *GET EXPECTED STATUS AND 
BIS eae AT “SET SSE. 
mT é 
JMP 
THAT A FORMAT ERROR WAS DETECTED 
BIT # ER RMER1| sWAS FER DETECTED 2? 
BNE 4 svES !! 
JSR pC ,DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
BR 4 :GO TO 40$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT *ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR pC ,@(SP)+ 360 BACK FOR MORE ERROR CHECKS 
JMP 4 :GO TO 46$ IF ERROR 
MOV #FER.SGDDAT sEXPECTED STATUS 
MOV MERI SBDDAT sRECEIVED STATUS 
EMT 34 
JMP 463 
THAT A BAD SECTOR ERROR WAS DETECTED 
#OSE .RMERZI sWAS BSE DETECTED 2? 
BNE 4 sYES !! 
JSR pg ,DTASTS :60 
BR 4 :60 
ORT 
JSR pt ,a(SP)+ 60 ERROR C 
JMP 60 T 
MOV RMER21,SBDDAT  ;RECEIVED STATUS 
mov SEDDAT sEXPECTED STAIUS 
JMP 


5 














SECERR 
At 
EMT 
JSR are 
JIAP 4 
ASL a3 
BNE 45$ 
TST R4 
BNE 


4 
MOV aes 
MOV #1,R5 










ERROR 

60 E ERROR C 

-60 RROR 

:SH 

*REPEAT 

th HEADER WORD DONE?? 
*SETUP FOR 2ND HEADER WORD 
“SETUP FOR HCE 


SULTS OF DATA TRANSFER 
NO_ERROR 


RROR 
D BY DTASTS SUBROUTINE 
HECKS 






SECERR SUBROUTINE 
HECKS 


SEQ 0125 


et a LL MS 
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114 WRITE, READ W/ HCE ERROR 












1 4412 000137 022604 JMP 2s 
Sees 46$: 
5 024416 47$: 
1 { AAAAAAARAAAARAAARAAAAAAAAAAAAAARARARAAARARAEARARERAEAEKREEAREREEE 
SSTEST 15 WRITE, READ W/ HCI & SSE! 
i an miaata iinet iat aan anaemia 
6416 +8115 
441 :SCOPE CALL 
b6 40 *START OF TEST 
4 1100 #STACK $P SINITIALIZE STACK POINTER 
1 1 SBASE ,R :RO = UNIBU 
64 13701 001 TsTaue R1 3(R1) = DEVICE BEING TESTED 
; 44 12737 15 001226 #15, STESTN [3SET TEST NUMBER IN APT MAIL BOX 
1 83 *RRAAEAAAAAAAAAAARAAAAATAAAAAAAEAAAAEARARAARAARARAAAARARARAAREARARAREEE 
*LOOP #1 FORMAT ,WRITE,READ 
1 44b6 1$: MOV RS sHEADER WORD 
igs QRtts, SS SNCE i a 
: 23: 
1 sPREPARE THE DEVICE FOR FORMAT OPERATION 
1 ; PREPARE DEVICE FOR TEST 


2ce60 134130 uorp 154130 





;TASK DESCRIPTOR AS FOLLOWS: 
RIFY DEVICE AVAILABLE 
LECT DEVICE 
OPERATION 
VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
CALIBRATE IF Ski OR “PIP IS SET 


3$ 


Y TSTPRP SUBROUTINE 


ee 
0 
137 025720 JMP 






















38s 

; 
- LOAD PARAMETERS AND GENERATE DATA BUFFER 
1 74 01 1057 : MOV #559. ,RMDCO : CYLINDER, = = $59. 
1 1 1 MOV aT :T = 2, SECTOR = 0 
1 1 MOV : $s 
1 16 01 4 MOV #-258.,RMWCO :2 + 256. WORDS (2° COMP) 
1 1 1 MOV SFMT 16. RMOF -16 BIT FORMAT 
1 MOV #WH'GO.RACSIO WRITE HEADER AND DATA COMMAND 
1 :VERIFY THAT SECTOR IS NOT BAD 

7 034762 Jsr ,BADSCT CALL BAB SE SECTOR _RODUL é 

1 066006 TYPE  ,SCTMSG Ts YPE BAD ECTOR MESSAGE 

EMT RROR #_ DEF INED BY BADSCT SUBROUTINE 

190 025720 - JMP 37$ IF ERROR 
1 1 7414 001176 MOV S,STMPO petates ADDRESS OF PATTERN 
1911 Oer7 080001 oO MOV a Sth “RANGE OF PATTERN 





PC, CENBUF :G0 GENERATE BUFFER FOR FORMAT 


= 
3 


— — 


PT 
WRITE, READ W/ 






ce ce ce ee ee ee ee ce ee ed ee ee ee ed ee edd eed et eed 


9 

9 

9 4644 
4650 

9 4654 

9 4660 

9 

9 

934 024660 


024676 


323 33 432 
REE BS Gat 


£ERE 
Soe 


med woe ed ed 


094752 


RERISETE 


12737 
10 


ots oe 
HCI 





SSEI 


104254 
104254 
104254 


025720 


040024 
040732 


040110 


025720 


054166 


025720 


024754 001124 
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; CHANGE \ tn WORD TO FORCE ERROR DURING WRITE 
sSET OR RESET B1T?? 


a R3 ,BUF ONE (R4) 
a RS,BUFONE(R4) ;RESET BIT 
5$: BIS RS,BUFONE(R4) ;SET BIT 


oe PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
sR2 = BYTE ENTRY POSITION 





s TERMINATE TABLE 


7$: 
sFORMAT THE DRIVE 
JSR PC .PUT :GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 8$ 60 TO IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PUT SUBROUTINE 
as JMP 37$ :G0 TO 37$ IF ERROR 


sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 


sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR FORMAT tee! 
JSR PC GET GO TO 98 TF NO ERA WITH GET SUBROUTINE 
NO ERROR 





_ NOP 
EMT 
JMP 





37$ 
9$: 


VERIFY NO ERRORS DURING FORMAT 
SR ogg" 





TASTS 
EMT 
SR #6 .8¢SP)* 
JMP 3 

10$: 

sMOVE — * mOMSAAS SUPE TO “iy OPERATION 

sSKIP TO WRITE OPERATION 


RREEAAERAEEAAAAARAAERAEEERERERARAEEARRARAREAARAAARAERAERAAEEAREEAAEEEEE 


‘Loop #2 WRITE ,READ 


SEQ 0127 


| 


«| alee 
T15 WRITE, 


NOON 


SESESETEREE 
S 


Sataabetannnnanbabna 
NSN 
Ww 


es % 
S oO 
S  SSERRS 


cami wad ned weed eed et etd 


RM8O FCTNL A MACR 
/ HCI 


READ W 


154130 


ae red wed aed et oh eS CD 
med) coed ear cam aweds eed ond ood 


3 
o 


Ess 
Sz 


0001 


004737 


034032 


025720 


025720 


040024 
040732 


040110 


025720 


041126 





> 
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11$: 
sPREPARE DEVICE FOR WRITE OPERATION 
JSR igi RP :PREPARE D 
. WORD ‘ ty ‘TASK DESC 
;SELECT DE VICE AVAILABLE 
AR C CE 
“VERIFY CON ION 
*PACK ACKNOWL UME NOT VALID 
“VERIFY PAC 
*RECALIBRAT 
VERIFY REC 
BR 12$ :60 TO 1 
NOP URN 
EMT SERROR # 
JMP 37$ 760 10 37 
128: 
WRITE DATA TO THE DRIVE 
001444 MOV #FMTI6!HCI!SSEI.RMOFO ; INHIBIT HEADER COMPARE AND SKIP 
SKIP SECTOR ERRORS 
001412 MOV #uD !GO,RMCS10 ‘WRITE DATA COMMAND 
001416 MOV #BUF ONE +4 , RMBAO ‘LOAD STARTING BUFFER ADDRESS 
“LOAD PUT REGISTER INDEX TABLE 
s TERMINATE TABLE 
:G0 WRIT REGISTER(S) WITH PUT SUBROUTINE 
*GO TO 14$ IF NO ERROR 
sRETURN HERE. If 
: # DEF INED BY PUT SUBROUTINE 
37$ : 37$ IF ERROR 
14S: 
sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
JSR PC GET *G0 READ REGISTER(S) WITH GET SUBROUTINE 
15$ *GO TO 15$ IF NO ERROR 
“RETURN HERE IF ERROR 
EMT *ERROR # DEFINED BY GET SUBROUTINE 
JMP 37$ "GO TO 37$ IF ERROR 
15$: 
:CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC PRIERR 360 CHECK FOR PRIMARY ERRORS 


SEQ 0128 


CZRNFAO RM8O FCTNL PT3 MACR 
T15 WRITE, READ W/ HCI 
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SEQ 0129 


BR 16$ :G0 TO 16$ IF NO ERROR 
NOP SRETURN HER 
EMT “ERROR # DEF INED BY PRIERR SUBROUTINE 
JSR °c a(sP)+ *60 BACK OR MORE RE ERROR CHECKS 
572 JMP :60 TO 575 IF E 
1990 114 16$: CLR SGDDAT sEXPECTED STATUS 
1998 000220 001352 BIT WHCE!FER,RMER1I sANY ERROR?? 
199 BEQ 17$ 
1994 001352 114 MOV RMER11,$BDDAT sRECEIVED STATUS 
1995 17755 114 BIC #CCHCE!FER> , SBDDAT ‘CLEAR DONT CARES 
1997 - 
1 1400 00114 "MOV RMER21,$BDDAT sRECEIVED STATUS 
1999 O00 Opt a60 BIT E RMER21 ZANY | BAD SECTOR ERROR ? 
1 077777 001142 - BIC #°CBSE , SBDDAT “SAVE BSE FOR ERROR 
"EMT 
4 025720 mat JMP 378 
000040 001400 ; eI #SSE ,RMER21 sANY SKIP SECTOR ERROR ? 
177737 001142 Bic — sSAVE SSE FOR ERROR 
10 025720 ‘me JMP 
12 0 054166 "< JSR PC DTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
BR 21$ *GO TO 21$ IF NO ERROR 
NOP *RE RROR 
EMT ZE INED BY DTASTS SUBROUTINE 
: JSR pc ,a(SP)+ 60 MORE ERROR CHECKS 
- 025720 sie JMP 3 60 IF ERROR 
sola 041760  * ia BC ,SECERR 60 
. BR 2 3:60 
NOP sRE 
EMT “ERROR 
JSR pc ,a(SP)+ 60 
025720 JMP 3 760 T 
i 223: 
17 12 012737 025322 001124 * ANSE OUP ongg3s  SLPERR 
8 052336 10 BR 245 
1 3s RAEEAARARAARERARAARARAAAEAARAEAARARAEAAERAARARAERAARARHERAAAEARAARAREREEE 
¢ “LOOP #3 
: 025322 23$: 
sPREPARE DEVICE FOR READ OPERATION 
$332 004737 034032 STPRP sPREPARE DEVICE FOR TEST 
5326 1 -WORD 154130 : TASK DESCRIPTOR 


SCR AS FOLLOWS: 
>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 


| ale RMBO_ FCTNL PT3 MACRO VO04.00 28-JAN-82 16:49:32 PAGE 13-60 
T15 WRITE, READ w/ HCI & SSEI 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWL FD GE aw 
sRECALIBRATE IF "SKI" OR “PIP 1S SET 
VERIFY RECAL IBRATION 



















0 04 BR 24$ ERROR 
40 NOP : pERROR 
g Bog EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
137 025720 JMP 37$ 760 TC 37$ IF ERROR 
0 243: 
=. gREAD DATA FROM DEVICE 
12737 MOV #RD!GO,RMCS10 :READ DATA COMMAND 
0 ? MOV #BUF TWO+4 , RMBAO ‘LOAD STARTING BUFFER ADDRESS 
1 MOV I sae “LOAD PUT REGISTER INDEX TABLE 
5 11 #RMDA, (R2)+ 
5 1127 #RMOF . (Ro) + 
1127 R2)+ 
5 11 R2)+ 
11 R2)+ 
1127. (R2)+ 
1 12 112717 R2) 
g 737 360 GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
: 4 NOP ‘RETURN HERE IF F ERROR 
54 : ERROR é DEF INED BY PUT SUBROUTINE 
54 025720 JMP 37$ 60 TO 37$ IF ERROR 
: 54 26$: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
; 025434 004737 040024 JSR PC,GETSTS G60 TO GETSTS SUBROUTINE 
sWAIT FOR COMMAND TO COMPLETE 
: 025440 004737 040732 JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
208 :GO READ STATUS FOR READ OPERATION 
JSR BC GET :60 ) WITH GET SUBROUTINE 





737 040110 
04 BR 
ae ERT 
1 025720 JMP 37$ 
27$: ? 
;CHECK FOR ERRORS DURING READ OPE 


es 737 11 RR IMARY ERRORS 
° 041126 aR bas IE 3 , 
: EMT ; PRIERR SUBROUTINE 
JSR all ; RROR CHECKS 
572 JMP 3 ; 
7 00114 28$: CLR SGDDAT s EXPEC TATUS 


000220 001352 oH E!FER,RMERII he ERROR ? 


BE 
114 MOV RMER11 , $BDDAT “RECEIVED STATUS 
00336 114 BIC #*C<HCE!FER>, SBDDAT *CLEAR DONT CARES 






oo 
—" 
So 













ROT IhROT 
MLALALALA ALA 


RLALALALALALAY 


, 





FES 





See See 
+ 
™“~ 


$e 
—_ 
& 
So 


aa 


mM 


oo 
= 
“ 


700000 001406 


077777 001142 


025720 
000040 
177737 
025720 
054166 


025720 
041760 


025720 
037462 


025720 


00002 


024454 


001400 
001142 


30$: 


31$: 


32$: 


33$: 


34$: 


35$: 


\ 368: 


37$: 
38$: 
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ITE. W/ HCI & SSEI 


30$ 
RMER2 





1 _SBDDAT 
E .RMER2 


#*CBSE , S$BDDAT 


#SSE ,RMER21 
32$ 
SGSSE-SBDDAT 


59s 


an 


PC,a(SP)+ 
508 


PC,SECERR 
34$ 


—-* 


F 


Buf 


BYE Twos 





RECEIVED STATUS 
ZANY ha SECTOR ERROR ? 


;CLEAR DONT CARES 


sANY SKIP SECTOR ERROR ? 
[SAVE SSE FOR ERROR 


+60 oo vERErS GE ey OF DATA TRANSFER 
NO ERROR 


‘RETURN HERE. IF ERROR 
ERROR 4 py hg BY Te ica 


‘GO BACK FOR MORE 

"GO TO 37$ IF ERROR 

;60 CHECK FOR FOR SECONDARY ERRORS 

NO ERROR 

“RETURN HERE IF ERROR 

“ERROR # DEFINED BY SECERR SUBROUTINE 

760 BACK FOR - MORE ERROR CHECKS 

760 TO 37$ IF ERROR 

:60 COMPARE WRITE. READ DATA BUFFERS 
sSTARTING ADDRESS OF WRITE BUFFER 
STARTING ADDRESS OF READ BUFFER 

360 TO 338 1F NO ERROR 


RROR 
ERROR # gia BY CMPBUF SUBROUTINE 
760 TO 37$ IF ERROR 






sSHIFT HCE BIT 
: CONTINUE IF NOT DONE 
+ 3 HEADER DONE?? 


SSTART WITH BIT 0 
:D0 SECOND HEADER 


—a€6 6L<—_— aa ic ° 


WRITE, READ W/ IVC ERROR 


pont WR Dy AB. OO 


‘greet 


T 16 


sSCOPE CALL 
sSTART OF TEST 


SEQ O15) 


—_ ———_.-— — —-- 








100 
i 
1s sate 
1 Bre 
aes 
1s 776 
1 6004 
110 
111 
feet 
fy 
1 
HF 
11 
118 026052 
26056 


NoPoMoRD 
eed ed ed od 
ot 
Nm—-owo 
owed ed ee) cee me aed ood wal 


VRRVSHRARON 


11 

1276 

1466 
16 


034762 
066006 
026740 
001420 
037214 


034032 


026740 


000024 


1 
0 


026740 


001226 
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READ IVC ERROR 









MOV #STACK, p s INITIALI 

MOV [RO = UNIBU 

MOV Ist reraueee 7(R1) = DE TESTED 

MOV #16 SESIN ‘SET TEST NUMBER IN APT MAIL BOX 
a3 *REAEAAEAARAEAAAAAAAAARAEAAEEARERARARAAARARARARERARAAAREAERARAREAREARAAAKEAE 
:LOOP #1 WRITE ,READ 
i LOAD PARAMETERS AND GENERATE DATA BUFFER 

MOV #559. ,RMDCO ; CYLINDER, = = 559. 

MOV #TA2 RADAD ‘TRACK = pegs = 0 

MOV eos NE emuCO 3, tp WORDS (2°S COMP) 

MOV #FMT16.RMOFO T 

MOV #uD ,RMCS10 ‘Up PE T AEADER AND DATA COMMAND 
:VERIFY THAT SECTOR IS NOT BAD 

JSR PC ,BADSCT :CALL BAD SECTOR MODULE 

BR $60 TO 2$ IF NO ERROR 

TYPE  ,SCTMSG ‘TYPE BAD SECTOR MESSAGE 

EMT ‘ERROR # DEFINED BY BADSCT SUBROUTINE 
a JMP 22$ :60 TO 22$ IF ERROR 

mov SUSE SECTOR FOR DATA PATTERN 
JSR :G0 GENERATE DATA BUFFER 


a © FOR WRITE OPERATION 


3$: 
sRESET VOLUME VALID 










PC TSTPRP sPREPARE DEVICE FOR TEST 
.WORD 1541 SCRIPTOR AS FOLLOWS: 
‘SELECT DEVICE & VERIFY DEVICE AVAILABLE 
*CLEAR CONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
if CK ACKNOWLEDGE IF VOLUME NOT VALID 
CALIBRATE iF “ocr if OR ‘PIP’ IS SET 
; IBRATI 
BR 3$ § 
NOP ; 
EMT : 
JMP 22$ 3 






MOVB SRAAR1PUTINX ; 
MOVB #200, ,PUTINX+1 ; 
MOV ADMD ,RMMAR10 $ 
JSR PC PUT : 
BR 4$ 3 
NOP F HERE IF ERROR 
EMT ate SoS IPE BY PUT SUBROUTINE 
JMP 22$ RROR 
4$: 
ial PARAMETERS AND EXCUTE WRITE DATA COMMAND 


SEQ O15e 





“—- 
=~ 


o 
—_? cet ed ced ed ced ed eed eed ee ed 
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WRITE, READ W/ IVC ERROR 
? 1 MOV #uD 'GO,RMCS10 sWRITE DATA COMMAND 
12737 MOV _RMMRIO sRESET DIAGNOSTIC MODE 
1 MOV ‘LOAD PUT REGISTER INDEX TABLE 
1 MOVB 
1 11 MOVB 
11 MOVB 
11 MOVB 
1127 MOVB 
5 11 MOVB 
1127 MOVB 
11 MOVB s TERMINATE TABLE 
1 7 JSR :GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 60 IF NO E 
NOP SRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PUT SUBROUTINE 
026740 ™ JMP 22$ *60 TO 22$ IF ERROR 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
040024 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
040732 JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
040110 JSR PC,GET :GO0 READ REGISTER(S) WITH GET SUBROUTINE 
; IF NO ERROR 
NOP 3 
EMT : 
026740 JMP 22$ 5 
7$: 
:CHECK FOR ERRORS DURING WRITE OPE 
041126 JSR PC PRIERR ; 
NOP : 
EMT ; Y PRIERR SURROUTINE 
JSR BC ,@(SP)+ 5 ERROR CHECK> 
026740 as: JMP 2 ; 
010000 001400 BIT #IVC .RMER2I 
BNE 1 
054166 JSR PC -DTASTS 
BR 
¥ NOP 
EMT DTASTS SUBROUTINE 
JSR BC ,a(SP)+ RROR CHECKS 
026740 ‘oa JMP 2 
Se i MR 
19000 00114 BIS 
026740 JMP 


10$: 


SEQ 0155 





WRITE, READ W/ I 


™ 
—_ 
oO 


VERRANASSELEG, 


3 


80% 


ee ed ed eed ed ed 


eA 041760 JSR 
BR 
NOP 
JSR 
026740 JMP 
11$: 
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VC E 
SECERR ERRORS 
aT 
EMT ECERR SUBROUTINE 
BC ,a(SP)+ RROR CHECKS 


; CHANGE LOOP — SES 
026406 001124 MOV ne 


$,SLPERR 
3 


Ff RAAAAAAAAAAAAERAERKEREAERARAAAAERERKERERERRRERERARERRRERRERREEE 















“LOOP #2 
. 026406 12$: 
i 7 034032 a DOR I REPRPO NO OREPARE DEVICE FOR TEST 
sree 007130 . WORD n5413 ‘TASK DESCRIPTOR AS FOLL 
“SELECT DEVICE i VERIFY DE DEVICE AVAILABLE 
:C CONTROL T DEVICE 
i VERIFY CONTROLLER CLEAR OPERATION 
RIFY PACK SPACK, ACRHOM EDGE ——— 
ec IF kl ‘PIP’ IS SET 
14 000404 BR 13$ :60 io, i NO ERROR 
1 40 NOP RE TURN HERE” IF ERROR 
1 EMT SERROR # DEFINED BY TSTPRP SUBROUTINE 
137 026740 JMP 22$ 760 TO 22$ IF ERROR 
ig 13$: 
1 RESET VOLUME 
a 112737 4 001555 MOVB ; 
11 1556 MOVB ; 
42 12737 1 001436 MOV 3 
JSR 5 
54 BR 3 
102800 ERT ; 
137 026740 JMP 22$ ; 
, 14$: 
i {READ DATA FROM DEVICE 
1 7 : sREAD DATA COMMAND 
7 [LOAD STARTING BUFFER ADDRESS 
7 “RESET DIANOSTIC 





nd and and ond ond od BEOOOOD 


ee eee ey 
cemed a ied em eu eed ona mand oad wed ood 








MODE 
:LOAD PUT REGISTER INDEX TABLE 








SEQ 0154 


T16 


WRITE 


3138 026550 112712 


gent) om cod 


000200 
040360 


026740 


040024 
040732 


040110 


026740 


041126 





16$: 


MOVE 
JSR 
BR 


NOP 
EMT 
JMP 
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#200, (R2) 
PC PUT 
168 


22$ 


“Hy bee w"cG) 
Zz 
33 


; SETUP we aaa TABLE TO READ ALL REGISTERS 


PC,GETSTS 


sWAIT FOR COMMAND TO COMPLETE 


17$: 


18$: 


19$: 


















:G0 TO GETSTS SUBROUTINE 

















JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR READ OPERATION 
JSR PC GET :60 
BR 178 760 
NOP sRE 
EMT s€ 
JMP 22$ 3:60 
:CHECK FOR ERRORS DURING READ OPERA 
JSR PC PRIERR :60 
NOP RE ERROR 
EMT = ERROR D BY PRIERR SUBROUTINE 
JSR pC ,a(SP)+ 260 MORE ERROR CHECKS 
JMP 2 260 RROR 
BIT #IVC.RMER21 *"IVC’’ DETECTED?? 
BNE i 
JSR PC ,DTASTS :G60 VER y RESULTS OF DATA TRANSFER 
BR 1 :60 TO. IF NO ERROR 
NOP ¢RETURN | IF ERROR 
EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
JSR pc ,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
JMP 2 :60 TO 22$ 
MOV 





@w 
ay 
n”n 


452875 928 







RMER2 aad 
#ivc 


o 


= 


—” 


RST SBODAT 


sEXPECTED STATUS 
sRECEIVED STATUS 







FOR SECONDARY ERRORS 
F RROR 


CERR SUBROUTINE 
CHECKS 





SE@ 0155 


ees - 
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117 WRITE, READ W/ 


2229 
i 
7 
74 
fs 
760 


SSses 


774 


met ead need ot ed ed 


3 


eeee 





VUVGVGGS 


S233 


Nr 
SEPeSSee 
SSESES 
KSRSrw 


— wt Vso 
rh wed ch ed 


vans 








CC 








SSTEST 17 , READ W/ ABORT 
jjtegustunenunasnusuncensceescunenenennensansscusosssensssesesess 
:SCOPE CALL 
*START OF TEST 
MOV Senet ad SINITIALIZE STACK POINTER 
MOV sRO = UNIBUS AD 
MOV TsTOue *(R1) = DEVICE BEING TESTED 
MOV 4 TESTI *sSET TEST NUMBER IN APT MAIL BOX 





FF AARAAAAAAAAAAARAARARAAAEAAAAAARERAAAARARAERERAAARERARRAREREERRERE 


:LOOP #1 WRITE ,READ 

sLOAD PARAMETERS (hilt, SENE GENERATE DATA BUFFER 

MOV #TA2 a yt 
ONE 


MOV 
MOV 





1$: 


sPREPARE DEVICE FOR_WRITE OPERATION 
PC. TSTPRP 


-WORD 154130 





EMT 
JMP 21$ 
3$: 
gyre DATA TO THE DRIVE 











oe.” = 559. 
= 2 SECTOR = 0 


‘BUS wn 
3256. WORDS (2°S COMP) 
:16 BIT T 
sWRITE DATA COMMAND 










PARE DEVICE FOR TEST 
TASK DESCRIPTOR AS. FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CONTROLLER & SELECT DEVICE 

:VERIFY CONTROLLER CLEAR 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
SRECALIBRATE IF SKI OR “PIP' IS SET 

CALIBRATION 


D BY TSTPRP SUBROUTINE 





sWRITE DATA_COMMAND 
LOAD PUT REGISTER INDEX TABLE 





SEQ 0156 


C 
117 


ue RNF AO 5 abl FCT 


7140 

P) Abe: 
: - 
ne 


RSS ISSO 
ENE 


SOROF 
~~ 


BSVx' 
he! 
SOC 

3 BROIOAC 


MN 

Se 

ROE 
Neon 


Te 


Ot xt 
ty*?-a?-er 
>a? 


Bees 
< xt 
o 
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027656 


027346 001124 





#RMBA, (R2)+ 














#RAWC . (RZ) + 
anacs| gihe)e 
s TERMINATE TABLE 
BC PUT 360 wRITE REGISTER(S) WITH PUT SUBROUTINE 
§ :60 TO 5 RROR 
SRETURN HERE IF ERROR 
: ERROR # DE INED BY PUT SUBROUTINE 
21$ 60 TO 21$ IF ERROR 
S$: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
:GO0 GET REGISTER STATUS 
JSR PC,GET 
BR 
NOP 
EMT 
” JMP 
; BIT :WAS COMMAND EXECUTED? 
BEQ 3NO, GO 
nov SEXPECTED STATUS 
MOV :RECEIVED STATUS 
EMT 
7$: 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 


GO GET REGISTER STATUS 
JSR GET 260 TO BS if WO ERRC WITH GET SUBROUTINE 










@e Ge Ge Be 
52 
as 
as 
mS 










21$ T0 
8$: . 
»PRIERR :G0 CHE 
360 TO 
; oh 
PC.a(SP)+ :G0 BACK 
man 21 ‘oo fOr 
‘ PC SECERR :G0 CHE 
1 360 TO 
sRETURN 
— 218 :60 TO 2 


: CHANGE LOOP met ii Kk 
MOV 118, SLPERR 


SEQ 0157 
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117 WRITE, READ W 


1 027344 000410 


Wh 


e 
: 027346 
087382 154130 


4 
a 


IE 
weed et ee 
Shas 
exe ond 
nad aed 
rornn 
— 

RS ~™N 






7 
rs 12737 
74 1 
1 7 1 
1 7 11 
1 74 11 
1 & 11 
14 1127 
16 097670 11 
17 
18 


Statatataad 
aie 














8R 12$ 
fF AAAAAAARARAAAAAAEAAARATAAAAAEAAAARAARAAAAAERAEERARARERRERAEEEERREE 
“LOOP #2 READ 
11$: 
sPREPARE DEVICE FOR READ OPERATION 
034032 JSR Pe Ist PRP E FOR TEST 
. WORD 4130 FOLLOWS: 
RIFY DEVICE AVAILABLE 
ROLLER SELECT D 
OT ROL ROLLER cL 
IF Ue MOT VALID 
OR ‘PIP’ IS SET 
BR 12$ 
NOP 
EMT 
027656 JMP 21$ 
12$: 


:SET UNSAFE ERROR 

14 001555 MOVE 
Oelaae 
1426 

JSR 


EMT 





2 
of 
o 
z 
ns 
of 


13$: 
Yt ti DATA FROM DEVICE 
14S: 


001412 DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 






040360 Pe PUT : REGISTER(S) WITH PUT SUBROUTINE 
15$ ; $ IF NO ERROR 
‘RETURN HERE IF ERROR 
: 8 DEF INED BY PUT SUBROUTINE 
027656 21$ ; 218 IF ERROR 
15$: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
040024 JSR PC,GETSTS :60 TO GETSTS SUBROUTINE 


SEE IF DEVICE STARTED COMMAND 


SEQ 0138 


——a —_— ee - 


ES EE -—— = 




















































SBASE ‘RO = UNIBUS ADDRESS 
TSTOuE R1 *(R1) = DEVICE BEING TESTED 
#20, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 


FE ARARAAAAEAERAEREAEEEEEEEEEEERAAREREAEAEAAEAERAAAAERAAEAERREREREREEE 


=LOOP #1 FORMAT ,WRITE READ 
027704 1$: =: & 
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T17 WRITE, READ W/ ABORT 
2324 040110 JSR GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
7390 BR n68 sD ie tend ir ehace 
, ERT ‘ERROR 1S CEFINED BY GET SUBROUT INE 
g 137 027656 ies JMP 21$ ‘GO TO 21$ IF ERROR 
737 020000 001350 a #PIP,RMDSI :WAS COMMAND EXECUTED?? 
414 BEQ 17$ “NO! ! 
7 00135 114 MOV RMDS1,$GDDAT SEXPECTED STATUS 
114 BIC #PIP,$GDDAT 
1 114 MOV $1, $BDDAT sRECEIVED STATUS 
7 104.547 EMT 
7 137 027656 JMP 1$ 
75764 17$: 
:WAIT FOR COMMAND TO COMPLETE 
027574 004737 040732 JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR READ OPERAT! 
? 7 040110 JSR PC,GET ; EAD RE 
, NOP ;RETURN HERE IF ERROR 
137 027656 aie JMP 21$ 760 TO 2 
737 041126 " «JSR PC -PRIERR 360 CHECK FOR PRIMARY ERRORS 
BR 1 760 TO 19$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
TS ecacsone Heck hate Ean testa 
: 7 137 027656 ni JMP 218 *60 TO 21$ IF 
534) , 7? 041760 " «JSR BC ,SECERR 260 CHE 
8R :60 TO 
7 NOP . sRE 
oor PC. a(SP)+ 60 BA 
137 027656 MP 21$ 60 
3 027 20S: 
027656 21$: 
fF ARAAAAEAAAARAARAAAEEEEREAAEEAARARAARERAARAAAAAERARAAREREREREARE 
“TEST 20 WRITE, READ EARLY PEAK SHIFT 
er Se eS ee 
, ° sSCOPE CALL 
“START OF TEST 
1100 #STACK, SP * INITIALIZE STACK POINTER 
i | 
7% 01 650 001226 
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T WRITE, READ EARLY PEAK SH 


3356 sPREPARE THE DEVICE FOR ‘weed OPERAT ION 
55 Aa) 00673) 034032 J Pe TSTPRP ARE 
1 WORD 





030664 JMP 25$ 
4 2$: 


sLOAD PARAMETERS AND GENERATE DATA BUFFER 


027712 04 BR 2$ 
7714 40 NOP 
7716 «(1 EMT 
0001 
77 











027724 01 737 001057 001446 MOV #559. .RMDCO sCYLINDER = 559. 
12737 001000 001420 MOV #TA2, RMDAO :TRACK = 2, SECTOR = 0 
7740 012737 1 34 001416 MOV ; S 
7746 012737 «177376 001414 MOV #=25 7242 36. WORDS (2°S COMP) 
7754 012737 010000 001444 MOV #FMT16,RMOFO ‘i6. BIT FORMAT 
4 027762 012737 000063 001412 MOV #WH!GO,RMCS10 ‘WRITE HEADER AND DATA COMMAND 
366 :VERIFY THAT SECTOR IS NOT BAD 
7770 004737 034762 JSR PC ,BADSCT 
7774 000405 BR 
7776 104401 066006 TYPE ,SCTMSG TOR MESSAGE 
104000 EMT INED BY BADSCT SUBROUTINE 
. , 000137 030664 ‘ JMP 25$ : F ERROR 
19 127 7 067670 001174 sSTARTING ADDRESS OF PATTERN 
16 012737 1 001176 SRANGE OF PATTERN 
4 7 037214 PC, GENBUF *GO GENERATE BUFFER FOR FORMAT 
SLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIJION 
0 MOV #PUTINX,R :R2 = BYTE ENTRY POSITION 
4 1 ARDC, (R2)+ 
75 1 GREDA, (R2)+ 
1 PREBA, (R d+ 
aRMOF RMOF{RS>2 + 
1 $1, (R2)+ 
1 és , (R2) s TERMINATE TABLE 
PC.PUT 60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
5§ 760 TO 5$ IF NO ERROR 
4 *RETURN HERE IF ERROR 
*ERROR # DEFINED BY PUT SUBROUTINE 
137 030664 - 25$ *60 TO 25$ IF ERROR 
2384 :SETUP GET INDEX TABLE TO READ ALL REGISTERS 
030106 004737 040024 JSR PC,GETSTS :60 TO GETSTS SUBROUTINE 


3389 sWAIT FOR COMMAND TO COMPLETE 


ee ee 
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Tt WRITE, READ EARLY PEAK SHIFT 









030112 004737 040732 JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
:G0 READ STATUS FOR FORMAT OPERATION 
116 737 040110 JSR PC GET 60 READ p REGISTER(S) WITH GET SUBROUTINE 
1 BR 60 T RROR 
124 4 NOP SRETURN HERE IF ERROR 
126 1 EMT SERROR # DEFINED BY GET SUBROUTINE : 
1 137 030664 JMP 25$ 760 TO 25$ IF ERROR | 
91 1 6$: } 
5 :VERIFY NO ERRORS DURING FORMAT 
030134 004737 054166 JSR PC ,DTASTS :60 GO VERIFY RESU RESULTS OF DATA TRANSFER 
140 5 BR 7$ NO ERROR 
142 000 40 NOP ‘RETURN HER . IF ERROR 
144 1 EMT TERROR # DEF INED BY DTASTS SUBROUTINE 
146 004 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
9 150 000137 030664 JMP 25$ :GO TO 25$ IF ERROR 
2 154 7$: 
3 :MOVE LOOP ADDRESSES TO NEXT OPERATION 
030154 012737 030164 001124 MOV #8S,SLPERR 
399 0 000410 BR 
401 J REREREREREAERARAAERAERAEEEREARAREEAEAREEREEAREREREREREREARRERREREREREE 
40¢ “LOOP #2 WRITE READ 
40 
404 030164 8$: 
406 :PREPARE DEVICE FOR WRITE OPERATION 
40 030164 004737 034032 JSR PC TSTPRP :PREPARE DEVICE FOR TEST 
030170 1541 .WORD 154130 s TASK DESCRIPT 


OR AS FOLLOWS: 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
CLEAR OPERATI 


;VERIFY CONTROLLER ON 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE |. 

:RECALIBRATE IF SKI” OR “PIP" IS SET 









NOP ; ERROR 
EMT ; D BY TSTPRP SUBROUTINE 
030664 9s: JMP 25$ ; 


WRITE DATA TO THE DRIVE 
10$: 


Sooo 
ad 
SS 
Se 
Sas 
52 
z 
g 





#-256.,RMWCO | ;CHANGE WORD COUNT 
#BUF ONE +4, RMBAO 
#uD !GO 





s€ 
SWRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


eed wand coh ee od eed end ed od 


MIS OONAnE WO 





ed td ond end ed ot OOOO 


ee ek are mod cee med ad acd cond ood oud 





MNIMINNINNNNNN 


; TERMINATE TABLE 





ee 


r~ 
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T WRITE, READ EARLY PEAK SHIF 


575% 030266 iat 
0 i 


— 


_» oe 


“y 039 14 





—— 
aes 
~ i=) 


040360 


030664 


040024 
040732 


040110 


030664 


041126 


030664 
054166 


030664 
041760 


030664 


030422 


034032 


001124 

















JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 118 :GO TO 11$ IF NO ER 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
_ JMP 25$ :G0 TO 25$ IF ERROR 
: SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
JSR PC GET 260 READ REGISTER(S) WITH GET SUBROUTINE 
128 360 TO 12$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEF INED BY GET SUBROUTINE 
JMP 25$ *60 TO 25$ IF ERROR 
12$: 
sCHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC PRIERR :G0 CHE Ck FOR FOR PRIMARY ERRORS 
138 :GO TO 13$ IF NO ERROR 
NOP “RETURN HERE. IF ERROR 
EMT ERROR f DEF INED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR RROR CHECKS 
oa JMP 25$ *60 TO 25$ IF ERROR 
JSR PC DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 148 *GO TO 14$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT SERROR # DEFINED BY DTASTS SUBROUT INE 
JSR PC @(SP)+ :GO0 BACK FOR MORE ERROR CHECKS 
i JMP 25$ 760 TO 25$ IF ERROR 
JSR Pe SECERR :G0 CHECK FOR SECONDARY ERRORS 
BR 15$ *GO0 TO 15$ IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT SERROR # DEFINED BY SECERR SUBROUTINE 
JSR pC a(SP)+ °GO BACK FOR MORE ERROR CHECKS 
JMP 25$ *GO TO 25$ IF E 
15$: 
: CHANGE LOOP ADDR SSES 
MOV #16$,$LPERR 
BR 17$ 


SE AAAEAAERAEEAREEEEEEEREREEEREREERAKKEERERRRARARAERRERARAREARREREEREE 


16$: 
;PREPARE DEVICE FOR READ ,OPERATION 
» of TSTPRP sPREPARE DEVICE FOR TEST 
4130 * TASK DESCRIPTOR AS FOLLOWS: 


i EEEEEEee—e neem 
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T WRITE, READ EARLY PEAK SHI 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
*CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER cL LEAR OPE 
°P I UME NOT VALID 
> VERIFY PACK ACKNOWL KNOWL EDGE 
*RE Fatty ‘PIP’ IS SET 
; VERIFY MECAL TBR BRAT! 
04 BR 17$ 60 T NO ERRO 
4 NOP s OO TUEN HERE IF ERROR 
EMT *ERROR # DEFINED BY TSTPRP SUBROUTINE 
137 030664 - JMP 25$ 760 TO 25$ IF ERROR 
READ DATA FROM DEVICE 
1 001412 ; #RD:!GO,RMCS10 sREAD DATA COMMAND 
1 1416 #BUF TWO+4 , RMBAO : E BUFFER 
"Rd ‘LOAD PUT REGISTER INDEX TABLE 
11 R 
11 
1 RIB, (R d+ 
11 arrest Re>}s 
1 #200. (R2) 
PC PUT :60 60 WAITE REGISTER(S) WITH PUT SUBROUTINE 
19$ NO ERROR 
‘TERROR # DEFINED BY PUT SUBROUTINE 
25$ *60 TO 25$ IF ERROR 
19$: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT ;G0 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR READ OPERATION 
JSR GET *G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR *GO TO 20$ IF NO E 
NOP *RETURN HERE IF ERROR 
EMT *ERROR # DEFINED BY GET SUBROUTINE 
JMP 25$ *60 TO 25$ IF ERROR 
20S: 
:CHECK FOR ERRORS DURING READ OPERATION 
JSR PC.PRIERR IMARY ERRORS 
BR 218 
NOP 
EMT IERR SUBROUTINE 
JSR PC a(SP)+ ERROR CHECKS 
sti JMP 25$ $ IF 
" «JSR PC DTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
BR 228 *60 TO 22$ IF NO ERROR 





SEQ 0143 


; 
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WRITE, READ EARLY PEAK 


rt 030712 


BB exon 
sr 


; 1 
504 030732 





012737 


030664 
041760 


030664 
037462 


030664 


21 001226 


034032 


031712 


001060 001446 
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NOP : RETURN HERE | 
ENT me sieniats ZERROR # D D FINED” a ‘DIASTS. SUBROUTINE 
in JMP OS$ :60 TO S5$ IF MERROR 
" «JSR PC SECERR ;60 GO CHECK FOR SECONDARY ERRORS 
BR 23$ s alt NO, RROR 
NOP ‘RETURN HER 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC a(SP)+ *GO BACK FOR MOR CHECKS 
- JMP 25$ :GO TO 25$ IF ERROR 
—— PC PC. CMPBUF 3G0 COMPARE WRITE, READ DATA BUFFERS 
. WORD :STARTING ADDRESS OF WRITE BUFFER 
“WORD sae TARTING ADDRESS OF READ BUFFER 
BR 10 2h NO ERROR 
NOP SOE TURN HERE” IF ERROR 
EMT SERROR # DEFINED BY CMPBUF SUBROUTINE 
JMP 25$ “GO TO 25$ IF ERROR 
243: 
253: 
TEST 27. WRITE. READ EACH TRACK U/ MIXED PEAK SHIFT 
tRTEST 21 WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT 
mat moma td ae cpstman emmmnmunmmeeananae 
SCOPE :SCOPE CALL 
NOP ‘START OF TEST 
MOV #STACK,SP sINITIALIZE STACK POINTER 
MOV *RO = UNIBUS 
MOV —_—«* TSTQUE,R1 (RI) = DEVICE BEING TESTED 
MOV #21, STESTN *;SET TEST NUMBER IN APT MAIL BOX 
f TRAAAARAREAARERAERERERAEERERREREARARARERARARAAARREERERREREEEREREE 
“LOOP #1 FORMAT ,WRITE READ 
1$: 
;PREPARE THE DEVICE FOR FORMAT OPERATION 
ss TSTPRP :PREPARE DEVICE FOR TEST 
41 = TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
LEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
K ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF ‘SKI’ OR ‘PIP’ IS SET 
*VERIFY RECALIBRATION 
BR 2$ *GO TO 2$ IF NO E 
NOP *RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
“ JMP 26$ *GO TO 26$ IF ERROR 
:LOAD PARAMETERS AND AND GENERATE DATA BUFFER 


MOV #560. ,RMD sCYLINDER = 560. 


Te1 


CZRNFAQ RMBO FCTNL 
WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT 


sap Sur 


de 


at ot ot 
oO _ 

eH S 3s 
NFEOOMOSNOG 


Cie 


FUSES 


cond wank wed ced ed ~ 2 et OD 
ems med wed eek eed ead ad od 
~~N™N 

— 


MFEUIN OOO uu w 
Oooooooooco Ooooooooo 
ed ed od ad od 


ss 
Or 





012737 


“J 


PTS MACRO 


v04.00 


CS-JAN~Se 16:49:5¢ PAGE 15/5 
















TRACK = 9, SECTOR = 0 


: appr ESS 
236; oear <2°S COMP) 
SURITE " NEADER " AND DATA COMMAND 


sSTARTING ADDRESS OF PATTERN 
60 CENERATE BUFFER FOR FORMAT 






FOR FORMAT RATI 


ION 
sR2 = BYTE ENTRY POSITION 


2 TERMINATE TABLE 





:G0 TO GETSTS SUBROUTINE 


:G0 TO VIROUT SUBROUTINE 


260 fig Ma SEL WITH GET SUBROUTINE 
NO ERROR 


RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
760 TO 26$ IF ERROR 


000000 001420 
104254 00141 
199 6 ih 
1 1444 
1412 #WH!GO.RMCS10 
sVERIFY THAT SECTOR 1S NOT BAD 
034762 JSR PC ,BADSCT 
066006 TYPE »SCTMSG 
031712 m JMP 26$ 
7354 001174 ~~ MOV #MIXED ,$TMPO 
090260 001176 MOV #1 8. STAT 
037214 PC, GENBUF 
001555 
800906 
000004 
00000 
eat 
000200 
:FORMAT THE DRIVE 
040360 JSR BC.PUT 
NOP 
EMT 
031712 JMP 26$ 
6$: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
040024 JSR PC,GETSTS 
:WAIT FOR COMMAND TO COMPLETE 
040732 JSR PC, TIMOUT 
:GO READ STATUS FOR FORMAT OPERATION 
040110 JSR PC,GET 
NOP 
EMT 
031712 ) JMP 26$ 
7$: 
:VERIFY NO ERRORS DURING FORMAT 
054166 JSR PC. ,DTASTS 


EMT 
JSR PC,a(SP)+ 


GO VERIFY RESULTS OF DATA TRANSFER 
:G0_TO IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
3G0 BACK FOR MORE ERROR CHECKS 





SEQ 0145 


EE 


| ane 
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Té1 WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT 


000137 031712 JMP 26$ G0 TO 26$ IF ERROR 


St 0311 + 8$: 


sMOVE LOOP ADDRESSES i OPERATION 





546 9311 12737 031172 001124 MOV »$LP 
BR 10$ sSKIP TO WRITE OPERATION 
as *REAEEAAEAAAAAAAAARAAAEAAEAAARAERAARKARAAAKRARARARAKRAAERRARKRAAKRAKAAEAE 
:LOOP #2 WRITE ,READ 
031172 9$: 
sPREPARE DEVICE FOR WRITE OPERATION 
555 031172 004737 034032 JSR PC ISTP RP s PREPARE DEVICE FOR TEST 
031176 154150 .WORD 1541 


:TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE SAVERIEY DEVICE AVAILABLE 
CLEAR CONTROL T DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 

PACK. ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE | 
:RECALIBRATE I SKI" OR “PIP IS SET 
:VERIFY f CAL IBRAT ION 













031 000404 BR 10$ NO ERROR 

1 000 40 NOP SP TURN. HERE IF ERROR 
1 1 EMT :RETUR g DEFINED BY TSTPRP SUBROUTINE 
1 000137 031712 JMP 26$ "60 TO 26$ IF ERROR 

556 121 10S: 

558 “WRITE DATA TO THE DRIVE 

59 03121 11$: 
1212 012737 104260 001416 MOV :CHANGE BUS ADDRESS 

1 031 12737 1 1414 MOV :CHANGE WORD COUNT 

1 12737 1 001412 MOV sWRITE DATA COMMAND 
1 01 1555 MOV “LOAD PUT REGISTER INDEX TABLE 
1240 11 MOVB 
1264 11 MOVB 
1 11 MOVB - )+ 
1 1 MOVB 
1 11 MOVB  #RMWC.(R2)+ 
1 11 MOVB apacsi (R2)+ 

! 1 11 mMOVB #200, (R2)+ : TERMINATE TABLE 

72 031274 737 040360 JSR PC.PUT :GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
1 04 BR 1 :GO0 TO 12$ IF NO ERROR 
1 0 NOP “RETURN HERE IF ERROR 
1 EMT sERROR # DEFINED BY PUT SUBROUTINE 
137 031712 ni IMP 268 *60 TO 26$ IF ERROR 


SETUP GET INDEX E 19 READ ALL REGISTERS 
7 031312 004737 040024 JSR PL GETST G0 TO GETSTS SUBROUTINE 
$2 ; sWAIT FOR COMMAND TO COMPLETE 
031316 004737 040732 JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 


78 
79 :GO READ STATUS FOR i COMMAND 
$7 031322 004737 040110 JSR PC GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 


wr 
Ve aSa 
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i 1 WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT 























1 BR 13$ ;60 TO 13$ IF NO ERROR 
ie ss i EO Metter sere 
1 031712 JMP 26$ °60 TO 26$ IF ERROR 
1 031340 13$: 
sCHECK FOR ERRORS DURING WRITE OPERATION 
031 7 041126 JSR PC .PRIERR 60 CHE Ck FOR PRIMARY ERRORS 
1 5 BR 148 *GO TO 14$ IF NO ERROR 
1 40 NOP SRETURN HERE IF ERROR 
1 1 EMT SERROR # DEFINED BY PRIERR SUBROUTINE 
1 JSR PC.a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
- 137 031712 el JMP 26$ 760 TO 26$ IF ERROR 
86 031 737 054166 JSR PC DTASTS :G60 VERIFY RESULTS OF DATA TRANSFER 
1 BR 15$ :G0 TO 15$ IF NO ERR 
1 40 NOP SRETURN HERE IF ERROR 
1 EMT SERROR # DEFINED BY DTASTS SUBROUTINE 
1 JSR PC.a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
_ 374 000137 031712 sain JMP 26$ 760 TO 26$ IF ERROR 
cet 1400 737 041760 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
1404 5 BR 16$ . IF NO ERROR 
1 40 NOP “RE HERE IF ERROR 
1410 1 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
1412 004 , JSR PC. a(SP)+ °GO BACK FOR MORE ERROR CHECKS 
9 1414 137. 031712 JMP 265 :GO TO 26$ IF ERROR 
1420 16$: 
rs : CHANGE LOOP ADDRESSES 
32 0 1420 012737 031430 001124 MOV #17$,$LPERR 
93 1426 000410 BR 18$ :SKIP TO NEXT OPERATION 
95 38 RAEAEAAAEAAAARAEAARAAAARAARAETAEAAERARAKAERARARARARARAREAREARAERARAARAAAKKEAS 
bs | sLOOP #3 
oS 031430 178: 
;PREPARE DEVICE FOR READ OPERATION 
031430 004737 034032 JSR Pe TSTPRP ; PREPARE DEVICE, FOR TEST 
031434 1541 .WORD 1541 “TASK DESCRIPT FOLLOWS: 
SELECT DEVICE, % Rgik DEVICE AVAILABLE 
=CLEAR CONTROL T DEVICE 
* VERIFY CONTROLLER EAR OPERATION 
=PACK ACKNOWLEDGE IF VOLUME NOT VALID 
| SVERIFY PACK ACKNOWLEDGE === 
) *RECALIBRATE IF ‘SKI’ OR ‘PIP’ IS SET 
SVERIFY, CALIBRATI ION 
14 04 | BR 18$ 360 NO ERROR 
144 40 NOP *RE ruen RERE. IF ERROR 
144 EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
1464 137 031712 - JMP 26$ *60 TO 268 IF ERROR 


165 isge> DATA FROM DEVICE 
314 012737 105264 001416 MOV #BUF TWO+4 ,RMBAO sCHANGE BUS ADDRESS 


: "= RM8O FCTNL PTS MACRO 


3633 








WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT 


g 


PoReNat 
fFoFfose 


ee ced ceed eed eed wd eed ced ceed ced ed ed eed eed wd 


Pe nan wn 
VERVSD 


oo 
——s 


PORQRIRIARIPIAINOND 
~ 
—b 

~ 


ee ed ced ed eed ed ed 
med wm ed eed med ceed ced 


a 
oOfn 


33 


2 3 
a 3 


ROW 
ofn 


SSeSse Se 
ae “essed “essed “essed = 4 


V04.00 28-JAN-82 16: ” 32 PAGE 13-78 





031712 


040024 
040732 


040110 


031712 


041126 


031712 
054166 


031712 
041760 


031712 
037462 


20S: 





sREAD DATA COMMAND 
:LOAD PUT REGISTER INDEX TABLE 


: SETUP Ce eR ate TO READ ALL REGISTERS 


sWAIT a ee TO COMPLETE 


sGO READ STATUS FOR READ OPERATION 
JSR PC GET 


21$: 


: CHECK ma | DURING READ OPERATION 


22S: 


243: 


NOP 
EMT 
JMP 





NOP 
EMT 
. JSR 

JMP 





C,GETSTS 


PC ,TIMOUT 


21$ 


26$ 


— 


PC, a(SP)+ 
(268 


— 


—~? 


PC ,SECERR 


24§ 





260 TO GETSTS SUBROUTINE 


:G0 TO TIMOUT SUBROUTINE 





:G0 READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 21S IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

60 TO 26$ IF ERROR 








3 
o 
a 


IMARY ERRORS 
ERROR 


aS 
$2 
r= 


RROR 
Y PRIERR SUBROUTINE 
ERROR CHECKS 









oF 


#88 88 
335 
az 


RESULTS OF DATA TRANSFER 
RROR 


~ 
© 


TASTS SUBROUTINE 
CHECKS 





> 
om J 












~ 






See ®e Ge @e Se 
3 
o 
Fe 






2 22 
: 





& 
3 
4 o - 
So 
™m 
Je Ge 
“slam 
S35 


SEQ 0148 
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f T3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 15-79 
Té1 WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT 


001335 


001226 


001174 


SE@ 0149 


RETURN HERE IF ERROR | 








NOP 

EMT Z ERROR # DEFINED BY CMPBUF SUBROUTINE | 
25$ 26$ GO TO 568 1 P ERROR 

MCB RMDAO+1 ZADVANCE TO NEXT TRACK 

CMPB RMDAO+1 ,LSTRK+1 : 

BHI sYES!! 

jmp sTEST NEXT TRACK 
26$: 


TEST 22. READ. WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 


















<STEST 22 READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 
mney ce cmnmmama aameaeimmaaa ace mmeacmameameamemaenaees 
:SCOPE CALL 
‘START OF TEST 
#STACK seas S INITIALIZE STACK POINTER 
= UN ADDRESS 
Teroue :(R1) = DEVICE BEING TESTED 
#22, ve, °:SET TEST NUMBER IN APT MAIL BOX 
23 *EAAAARAAAARAAEAERAAARAAAAAAAEAERAARARARARAAAARARERARARAERAARARARRREAERERE 
i LOOP #1 FORMAT,READ OFFSET,WRITE CHECK OFFSET IN BOTH DIRECTIONS 
sPREPARE DEVICE FOR FORMAT OPERATION 
JSR PC .TSTPRP s PREPARE DEVICE FOR TEST 





. WORD 184130 :TASK DESCRIPT 


AS FOLLOWS: 
3 SELECT oetaStL % ¢ VERIFY DE DEVICE AVAILABLE 
SCLEAR CONTROL T DEVICE 
VERIFY CONTROLLER C LEAR OPERATION 
ee paar feel seem ID 
:RECALIBRATE IF oF ties OR *PIP’’ IS SET 
s VERIFY RECALIGRATI 


2s 2:60 TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
260 TO IF ERROR 






28$ 
“LOAD PARAMETERS AND GENERATE DATA BUFFER 








5$: 
#559. : 
Ht Fog “BUFFER 
gens : COUNT FOR 2 SECTORS (2°S COMP) 
AFT : 
#uH'60. RAST 0 : 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 
TYPE  |SCTMSG 
EMT 
- JMP 28$ 
MOV #ZEROS,STMPO sDATA PATTERN 





ee ee 
—- — 
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1 2 READ, URITE CHECK MULTIPLE SECTORS IN OFFSET MODE 


















2 1 001176 MOV #1,STMP1 
933005 eet seth JSR PC. GENBUF :TO GENERATE BUFFER FOR FORMAT 
sLOAD PUT REGISTER INDEX TABLE FOR FORMAT 0 
oF MOV #PUTINX Re a oy TABLE 
1 C, (R2)+ 
11 #RMDA, (R2) 
71 11 ARMBA, (R2)+ 
re 11 #RMWC. (R2)+ 
11 #RMOF . (R2)+ 
7% 11 Si, (R2)+¢ 
2 11 in #200, (R2) : TABLE TERMINATOR 
7 f BC .PUT REGISTER(S) WITH PUT SUBROUTINE 
5 IF NO ERROR 
ETURN HERE IF ERROR 
1 EMT # DEFINED BY PUT SUBROUTINE 
JMP 28$ 28$ IF ERROR 
3678 5$: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
" 032142 004737 040024 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
see sWAIT FOR COMMAND TO COMPLETE 
032146 004737 040732 JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
2684 :GO READ STATUS FOR FORMAT OPERATION 
§ 032152 737 040110 JSR BC. GET 260 READ REGISTER(S) WITH GET SUBROUTINE 
1 04 BR *GO TO 6$ IF NO ERROR 
i 1 B00 BAT : EEINED BY GET SUBROUT INE 
164 000137 033074 IMP —s«28S 760 TC ERROR 
1 6$: 
fe : VERIFY NO ERROR DURING FORMAT 
170 737 054166 JSR PC DTASTS : 
174 05 BR 7$ ; 
176 4 NOP 3 
OR PC.a(SP)+ °60 
033074 JMP OBS 60 
oy gov LOOP ADDRESSES TO NEXT OPERATION 
032232 0011246 MOV #8$ ,SLPERR sERROR LOOP ADDRESS 






sLOCATE _ SS AND WORD COUNT 


#-256.%2,RMWCO :TWO SECTORS 
#BUF ONE , RMBAO :BUFFER ADDRESS 


Fe 
$3 sRRARRRRERREAAREREREREAERERAAARARERREERRERERERARAARERAAARERERERE 


SLOOP 2 READ AND WRITE CHECK IN OFFSET MODE 
; PREPARE DEVICE AY READ OFFSET OPEATION 
TSTPRP ; PREPAR 


J : c 
WORD *S44 0 “TASK DESCRIPTOR 
SSELECT DEVICE 


;CLEAR CONTROLLER 





034032 
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<< oe re 


c RNF AO RMSO FCTNL PT3 MACRO 
Tee READ, WRITE CHECK MULTIPL 


~ ™N 
SES HESSS8 
Soooooo ptetetectectcte ete oOooooeco Gocococo 
~ cond cmd cet 


RAS 


Vt We 


032364 004737 
1 
i Hs 
1127 
412 737 
41 04 
4 40 
422 1 
42d 1 
a. 
2 7% 032430 004737 
5 
032434 004737 





040024 


040732 


V 
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04.00 
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001412 


001412 
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118: 





488%% : 


12$: 





49:32 PAGE 13-81 
SET MODE 






sWAIT FOR COMMAND TO COMPLETE 
PC, TIMOUT 








a) q q 
435% . : 





13$: 


: SETUP a INDEX TABL 








a ge murine. 
a 


28$ 


PC GE 


sWAIT FOR COMMAND TO COMPLETE 


JSR 


PC, TIMOUT 


a TO READ ~ RE 
STS GO T 


; VERIFY Se May R sue OPERATION 
ACKNOWLED UME NOT VALID 


:PACK AC 

sentry Cate ae “PIP’ IS SET 
VERIFY Re CRECALIBRA 

:60, 19 F NO RROR 

RETURN’ H WHERE IF 


Z ERROR eae it NED BY TSTPRP SUBROUTINE 
TO 28$ IF ERROR 












oo 
—e 


sLOAD THE TABLE 











#200, : TABLE TERMINATOR 
PC PUT :GO WRIT REGISTER(S) WITH PUT SUBROUTINE 
118 260 TO 11$ IF NO ERROR 
“RETURN HE a; ERROR 
3ERROR # DEFINED BY PUT SUBROUTINE 
28$ TO 28$ IF 
a ail :OFFSET COMMAND 
#PUTI 
5208 $1, (Re 
ree 
i 





: TABLE TERMINATOR 
REGISTER(S) WITH PUT SUBROUTINE 
F NO ERROR 





IF ERROR 
INED BY PUT SUBROUTINE 
F ERROR 









F 
I 


GISTERS 
0 GETSTS SUBROUTINE 


GO TO TIMOUT SUBROUTINE 


SEQ 0151 


in 
| 
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B8-JAN-82 16:49:32 PAGE 15-82 
SET MODE 


sREAD “=P FOR READ OFFSET OPERATION 


















PC, GET 69 To. READ gREGISTER(S) WITH GET SUBROUTINE 
148 NO ERROR 
EMT ERROR # DEFINED BY GET SUBROUTINE 
JMP 28$ 760 TO sper NED BY 
i CHECK ERROR DURING READ OFFSET 
"SSR PC PRIERR :60 CHECK FOR FOR PRIMARY ERRORS 
BR 15$ 360 TO 15$ IF NO ERROR 
NOP SRETURN HE 
EMT ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR pC .a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
- JMP 2 760 TO 28$ IF ERROR 
a PC DTASTS I TS OF DATA TRANSFER 
2, RROR 
EMT DTASTS SUBROUTINE 
JSR pC ,a(SP)¢ KS 
‘in JMP 2 
7 PC ,SECERR 
BR 1 
SRT 
JSR pC .a(SP)* 
UMP 2 
17$: 
5 CANCE OO eee ies. SLPERR 
BR 19$ :TO NEXT OPERATION 





SE REAAAAAAAERARAERERAEEAEREREEARREARAEERAERARAERARRAERRERRRRERERRRERKEE 


igor 3 WRITE CHECK OFFSET 


sPREPARE DEVICE FOR READ OPERATION 
JSR Pe TSTPRP sPREPARE DEVICE FOR TEST 

.WORD 1541 “TASK DESCRIPTOR AS F 
LECT DEVIC 


LEAR CONTROLLE 
:VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: :VERIFY PACK ACKNOWLEDGE 


ats If atti OR "PIP*’’ IS SET 





BR 19$ 
NOP 
EMT 
JMP 28$ 


19$: 
sWRITE CHECK DATA IN OFFSET MODE 


PT OLLOWS : 
>SELECT oetece a RIFY DEVICE arr 


SEQ tb? 
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SEQ 0155 


; TABLE TERMINATOR 












PC PUT 360 WRITE RE REGISTER(S) WITH PUT SUBROUTINE 
21$ NO ERROR 
“RETURN HER z IF ERROR 
‘ERROR # DEF INED BY PUT SUBROUTINE 
28$ *GO TO 28$ IF ERROR 
5 SETUP OFFSET MODE FIRST 
001412 5 mov mu, »RMCS10 sOUTPUT BUFFER 
MOVB $1 (R + 
MOVE #200 (R 
JSR PC PuT :60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 22$ 'GO TO 22$ IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT ‘ERROR # DEFINED BY PUT SUBROUTINE 
JMP 28$ :GO0 TO 28$ IF ERROR 
223: 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO0 TO TIMOUT SUBROUTINE 
ZEXECUTE WRITE CHECK DATA COMMAND 
001412 MOV wacn: inne 
i R2)+ 
| macs tite 
PUT 
ae t«OSS 
NOP 
EMT 
JMP 28$ 
23$: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS sGO0 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 
zREAD STATUS FOR WRITE CHECK OFFSET OPERATION 
JSR PC.GET :60 R REGISTER(S) WITH GET SUBROUTINE 
BR 24$ 360 F NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT Z ERROR # DEFINED BY GET SUBROUTINE 
JMP 28$ GO TO 28$ IF ERROR 





V04.00 28-JAN-82 16:49:32 PAGE 13-86 SEQ 0154 
TIPLE SECTORS IN OFFSET MODE 

























243: 
sCHECK ERROR DURING WRITE CHECK OFFSET OPERATION 
737 041126 JSR PC PRIERR 60 CHECK FOR PRIMARY ERRORS 
05 BR 25$ *GO TO 25$ IF NO ERROR 
40 NOP SRETURN HERE IF E 
EMT ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
BC ,a(SP)+ :G0 BACK F EE 
5006 137 033074 on JMP 2 *GO TO 28$ IF 
C 737 054166 JSR PC .DTASTS G0 VERIFY RESULTS OF DATA TRANSFER 
i 05 BR 268 160 TO 268, IF NO ERROR 
f 40 [RETURN HERE IF ERROR 
0e2 1 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
i JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
3026 000137 033074 — = 288 :60 TO 288 IF ERROR 
i 737 041760 JSR eC SECERR :60 0 CHECK K FOR SECONDARY ERRORS 
36 05 BR 27$ :60 7$ IF NO ERROR 
000 40 URN HERE IF 
EMT *ERROR # DEFINED BY SECERR SUBROUTINE 
004 JSR pC .a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
137 033074 a JMP 2 :GO TO 28$ IF ERROR 
32737 000200 001444 BIT D.RMOFO IN FORWARD DIRECTION OF OFFSET ? 
1005 BNE *BRANCH 
052 ? 000200 001444 BIS #OF D .RMOFO “SET TO A ORUARD DIRECTION 
137 032210 - JMP 7$ “CHANGE OFFSET DIRECTION TEST AGAIN 
b { RAAAAAAEAAARAAERAERARAEAAEERAKERARAERARAARARAREEERAERAAEEREERERERERKK 
‘TEST 23 FORMAT FE CYLINDERS 
7 meagan rt a a ee ammanmumnaananmmaes 
sSCOPE CALL 
TART OF TEST 
#STACK 3 INITIALIZE STACK POINTER 
(R1) = DEVICE BEING TESTED 
001206 #1,$T!I :D0 1 ITERATION 
001226 #23,$TESTN <°SET TEST NUMBER IN APT MAIL BOX 
: SETUP PARAMETERS F GENERATING DATA BUFFER 
012737 001 57 001446 MOV 559° RAD : CYLINDER = 559. 
12737 001 001420 “ MOV AS yt “TRACK = 2, SECTOR = 0 
12737 011000 1444 MOV #FMT16!SSEI ,RMOFO ng? 1S. BIT FORMAT WITH SSEI SET 
12737. 177776 001414 MOV #=-2,RMWCO OMP) 
12737 104254 001416 MOV ONE “DATA TA BUFFER s ASORESS 
12737 2 001412 MOV #H ,RMCS10 *WRITE HEADER AND DATA 
:VERIFY THAT SECTOR IS NOT BAD 
737 034762 JSR pC -BADSCT :CALL BAD SECTOR MODULE 
5 BR 2 *GO TO 2$ IF NO ERROR 
401 066006 TYPE  ,SCTMSG sTYPE BAD SECTOR MESSAGE 
1 EMT *ERROR # DEFINED. D BY BADSCT SUBROUTINE 
033522 JHP 12$ *GO TO 12$ IF ERROR 


te 






















a} 
CARNE AO RM8O FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 13-85 SEQ 0155 | 
3 FORMAT FE CYLINDERS 
70 23: 
; ite 001446 001060 CMP RMDCO,#560. :1$ DESIRED CYLINDER, OUTSIDE FE CYLINDERS ? 
: 0001 $ 033522 a JMP i3s ‘YES, EXIT TEST 
004737 037214 set JSR PC, GENBUF :GO GENERATE DATA BUFFER 
5737 001514 j TST SSFENB :TEST SSF ENABLE £OR, 1ST HEADER WORD 
i 8 Bit BEQ *NO, DO NOT SET ‘SSF 
052737 020000 104254 - BIS #SSF ,BUFONE “YES, SET SSF BIT 
PREPARE DEVICE FOR DATA. TRANSFER 
840 033 50 004737 034032 PC TSTPR ;PREPARE DEV Ice FOR TEST 
154130 4130 ‘TASK DESCRIPTOR AS FOLLOWS: 
“SELECT DEVICE & VERIFY DEVICE AVAILABLE 
: CONTROL SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWL EDGE 
sRECALIBRATE IF ''SKI’’ OR ‘PIP’ IS SET 
“VERIFY RECALIBRATION 
033256 000404 BR 56 :GO TO 6$ IF NO ERROR 
0 69 40 NOP “RETURN HERE IF ERROR 
0 1 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE | 
, 033264 000137 033522 JMP 12$ :GO TO 12$ IF ERROR 
é - SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
5 70 012737 000063 001412 | :WRITE HEADER AND DATA 
5 7 oF re 001555 *WRITE REGISTER INDEX TABLE 
1127 bose 
lists Site 
50 1127 
51 1127 800000 | 
3 112722 000200 
54 737 040360 ; 
04 : 
137 033522 ; 
3836 54 7$ 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
033354 004737 040024 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
033360 004737 040732 JSR PC, TIMOUT :GO0 TO TIMOUT SUBROUTINE 


1 737 040110 JSR PC GET 360 R REGISTER(S) WITH GET SUBROUTINE 
04 BR 8$ :60_TO IF NO ERROR 
& NOP ;RETURN ee IF ERROR 
; 1 : : EMT sERROR # DEFINED BY GET SUBROUTINE 


033522 JMP 12$ :G0 TO 12$ IF ERROR 


" 
RNFAO RMBO FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 13-86 SEQ 0156 
1 3 FORMAT FE CYLINDERS 
















2862 033402 8$: 
3 sVERIFY RESULTS OF WRITE COMMAND 
5 033402 7 041126 JSR PC. »PRIERR :60 CHE CK OR PRIMARY ERRORS 
g BR 9 :60 TO NO 
1 40 NOP SRETURN HE 
12 1 EMT *ERROR # D Y PRIERR SUBROUTINE 
14 JSR PC a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
1 137 033522 - JMP 12$ *GO TO 12$ IF ERR 
seer 737 041760 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
05 BR 108 :GO TO 6s IF NO ERROR 
40 NOP sRETURN HERE IF E 
1 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
004 JSR PC a(sSP)+ *GO BACK FOR MORE ERROR CHECKS 
137 033522 JMP 12$ *GO TO 12$ IF ERROR 
2 10$: 
s INCREMENT ADDRESS 
2 ? 001420 INC RMDAO sADVANCE SECTOR COUNT 
123727 001420 000037 RMDAO, #31. ; DONE jALL SECTORS ? 
1014 11$ “NO ! 
56 105037 001420 :START AT SECTOR 0 AND 
105237 001421 RMDAO+1 ZADVANCE TO NEXT TRACK, 
123737 001421 001335 RMDAO+1 ,LSTRK+1 : DONE WITH LAST TRACK ? 
101410 11$ “NO ! 
rs 105037 001421 z START WITH TRACK 0 AND 
7 001446 VANCE TO NEXT CYLINDER. 
! 7 001446 001060 WITH LAST CYLINDER ? 
16 1 g 033144 11$: 60 Dd TEST AGAIN 





386 033522 128: 


CZRNFAO RM8&O oe ee V04.00 28-JAN-82 16:49:32 PAGE 14 


END OF SUB-PASS 


Dwdada—hadadadababmbed 
CONAUSWUIN “OOO NOUS WR— 


iin 


OQOOooooeoo 
ARE PR ahonony 





00571 
S001 


013746 
104405 
00 


013746 


104405 
005037 


001466 


001230 


-SBTTL END OF SUB-PASS ROUTINE 





sTHIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE 
S TERMINATE THE OPERATION OF 


IS_USED TO 
THE CURRENT DEVICE UNDER TEST AND 





*SELECT THE NEXT DEVICE rf0R TEST. IF THERE ARE NO MORE DEVICES 
:TO TEST, EXIT IS MADE TO ‘SEOP' ROUTINE. OTHERWISE, RETURN 
71S MADE TO ‘SHUT’ ROUTINE. 

SEOSP: score 

MOV TSTQUE ,RO ;GET POINTER 10 TSTQUE 
ADD JR UST POINTER TO NEXT DEVICE 
MOV RO. TSTQUE i SAVE POINTER TO TST 
TST (RO) Y MORE DEVICES FOR TEST ? 
BEQ 1$ F NO 
JMP SHUT SYES, JUMP TO SHUT’ ROUTINE 
1$: MOV #TSTQUE*2, TSTOUE om + que NET IALIZE POINTER TO FIRST DEVICE IN 


~-SBTTL END OF PASS ROUTINE 


J RAAAAAAAAAAAAERAEKEAREREREAEREREARAEREREREREEEERERERREEREEREEKERE 


: SINCREMENT THE PASS NUMBER (S$P 


>*TYPE "END 
3 *WHERE XX 
:*IF THERES A 









ASS) 
ND PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYyY’’ 
XXX AND YYYYY ARE oo NUMBERS 
A MONITOR GO TO IT 





0 
:*IF THERE ISN'T JUMP TO SHUT 





bas: 


STSTNM 
STIMES $ 
1 ,SPASS :: 
_— ss 






;ZERO THE TEST NUMBER 
ERO THE NUMBER OF ITERATIONS 
NCREMENT | PASS NUMBER 

by i ; ALLOW A NEG. NUMBER 












SDOAGN s3YES 
yer eewrers 3sRESTORE COUNTER 


3 TYPE ASCIZ STRING 
: T OVER THE ASCIZ 
<12><15>/END PASS #/ 







SPASS ,-(SP) 33SAVE SPASS FOR TYPEOUT 
2 TYPE PASS NUMBER 
TST SERTTL 238 E IF ANY ERRORS THIS PASS 
Q $GT42P SBR 3 
TYPE 67$ 33TYPE ASCIZ STRING 
"ASCIZ 7 TOTAL ERRORS SINCE LAST REPORT 
SERTTL,-(SP) SAVE SERTTL FOR TYPEOUT 
*:TOTAL NUMBER OF ERRORS 
TYPDS ::G0 TYPE=-DECIMAL ASCII WITH SIGN 
CLR SERTTL *:CLEAR ERROR TOTAL 


SEQ 0157 


Bese 


UESWIN— 


ES TYPE 
T42: MOV 
BEQ 
RESET 
SENDAD: JSR 
NOP 
NOP 
NOP 
SDOAGN: 
JMP 
SRTNAD: .WORD 
SENULL: .BYTE 
EVEN 
SHUT: TST 
BNE 
JMP 
1$ TST 
BNE 
JMP 
2$ . 


SCRLF 
iia 
PC, (RO) 


a(PC)+ 
SHUT 
-1,-1,0 





TURN, LINE FEED 
ss" 
TOR 


szNULL CHARACTER STRING 
WAS CONTROL C FLAGGED ? 
‘ANY MONITOR PRESENT ? 

:BR IF YES 


O START 
E NO DRIVES IN MAP 
sRETURN TO SEOP 


SEQ 0158 


a 


+ - 
mre 


—-— t/- 


CTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 15 SEQ 0159 
MODULE 


RNF F 
TION 


Ss 


“Zz 


BS 
sé 


-SBTTL TEST PREPARATION MODULE 


; THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST, 

: REPORTING AN ERROR 10 THE USER IF AN ERROR IS DETECTED. THE USER 
; SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 

; USING SUBROUTINES. 


7 CALL: 
3 JSR PC, TSTPRP 

3 eWORD NNNNNN TASK/VERIFY DESCRIPTOR 
; BR ?? RET HERE IF NO ERROR 
$ NOP RETURN HERE IF 

; ERROR ERROR DEFINED BY MODULE 


eet; DESCRIPTOR 
BIT 15 = SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 


1 CLEAR CONTROLLER AND SELECT DEVICE 
(RESERVED FOR DRIVE CLEAR) 
=1 PACK ACKNOWLEDGE IF VOLUME NOT VALID 


1 RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR 
1 RECALIBRATE DRIVE 














Opntadadadad dadababas 
CONAVULSWIN =— 6 OO NOULSWN OC: OBONOU PwWwn- 


a~c 


" 
_ 


VERIFY CONTROLLER CLEAR OPERATION 


(RESERVED FOR DRIVE CLEAR) 
VERIFY PACK ACKNOWLEDGE 
VERIFY RECALIGRATION 





—_ 
eed och 





ON) Ww 
nn 


034032 TSTPRP: ° 


sSTORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL 

uf 17637 034756 MOV a(SP) .39$ :STORE DESCRIPTOR 
ADD #6, (SP) “MOVE SP TO USERS ERROR CALL 

103076 CLRB32Ssa( SP) “CLEAR ERROR CALL 
SUB #4, (SP) MOVE SP TO NO ERROR RETURN 


7 24 JSR PC.GETSTS sSETUP TO READ ALL REGISTERS 
a3 02070 JSR PC GET sGET RMER2 

i a ; er lower _— DETECTED 
_ ~WORD 0 sr DEFINED BY GET SUBROUTINE 
ADD O USER AND 


1$: #4, (SP) sXFER_ERROR T 
778 032070 000000 MOVE ieee (SP) ; 
46 JMP 37$ 


;GET ERROR NUMBER 
3 034110 013737 001400 034760 2$: MOV RMER21 ,40$ sGET RMER2 AND SAVE FOR LATER 


FARRAR EEREREAREEEREREEEERAERERERREREAERERRRRERAEEREREEERREREE 






EE ae 











CZRNFAO RMBO FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 15-1 > SEQ 0160 
TEST PREPARATION MODULE 
5 sSELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK 
a8 934116 005737 034756 TST 39$ sSELECT DEVICE?? 
60 122 100014 4$ NO! ! 
6¢ 0341246 737 046336 JSR PC .DEVSEL :G0 SELECT DEVICE 
63 M BR 4$ ‘NO ERROR = CONTINUE 
65 0341 WORD 0. ZERROR NUMBER FROM DEVSEL 
66 1 6 3$: ADD 4, (SP) s TRANSFER ERROR TO USER 
é, 142 1 176 134 000000 MOVB 35:2, a(SP) 
$ 1 137 034746 JMP 7$ 
0 £ AAAAAERAEAAEAEAAERAAEAEEEEAAARARERERAEAERAREREREEERERERAKHEREKE 
71 lias {CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 
rg 034154 032737 040000 034756 BIT #91T14, 39S : CLEAR CONTROLLER?? 
os 034162 001451 BEQ °NO 
06 164 737 050030 JSR PC,CNTCLR :G0 CLEAR CONTROLLER 
£0 i BR 7$ ‘CONTINUE = NO ERROR 
i 174 5$: . WORD 6° sERROR NUMBER FROM CNTCLR 
17 16 6$: ADD #4, (SP) * TRANSFER ERROR TO USER 
1 20 11 726 034174 000000 MOVB 38 a(SP) 
10 000137 034746 JMP 
S AAARAAAAAAAAARAEEAAAAAREREEAEAAEEERAEKRERARAEREREKEERERAREEREERRKEKEKRKKE 
5 - ;VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 
14 032737 000100 034756 BIT 16,39$ :VERIFY2? 
GHEE gse78 Ir ven 
4 737 040110 JSR PC,GET 360 GET STATUS 
91 i BR is *NO ERROR GETTING STATUS 
38 8s: WORD sERROR FROM GETTING STATUS 
34 é : ADD O.. (SP) * TRANSFER ERROR TO USER 
42 11 176 000000 MOVB $0 a(SP) 
137 034746 JMP 
54 737 050146 10$: JSR PC, CLRSTS :G0 VERIFY STATUS CLEAR 
12 BR 3 ‘NO ERROR IN CLEAR 
1 11$: .WORD 0 sERROR IN STATUS CLEAR 
: ; - A A ER 
1 7% 1 78 O3oe4 000000 11$,a(SP) “ERROR TO US 
5 2 00013 46 37$ . 
1 SRAEAAAARAACAAAAAAKAARARERAAEAAARAARARARAAAEAEARERAAEAREAARAARAREEARAREE 
1 “EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 
3 :NOT VALID 
11 34306 737 010000 034756 "BIT ae 112,39$ :PACK ACKNOWLEDGE ?? 
1 501 BEQ 2 NO! ! 
114 034316 004737 040110 JSR PC,GET 





a2 


eb ed ed ed et 
ad ed ed eed ed 
NOUN =—OOOanauw pe 


ce ed eet ned ed oe nd od ord od 


SOVEREANASVSVRARAVSS 


ao 


SS SOVSEUNE UN SOMNONRUN BO 


eed eed eed eed eed ee ed et eed eed ed eed eed eed ee eed et eed ed ed ed ee ed ee ee eed eed ee ce ed eed ed ed ed eed wed eed eed eed ed 
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11 BR 168 :NO ERROR GETTING RMDS 
1 BR 15$ 
14$:  . WORD 
153: ADD #4, (SP) ; TRANSFER ERROR TO USER 
1 6 000000 MOVE 14$,a(SP) 
00013 46 JMP 37$ 
032737 000100 001350 16$: BIT ,RMDSI :1$ VOLUME VALID?? 
001061 | BNE 25$ YES! ! 
12737 3 001412 MOV #PAKACK!GO,RMCS10 “LOAD PACK ACK COMMAND 
12737 00159 MOVB { sSETUP REGISTER INDEX TABLE 
112737 1556 MOVB PUT INX*#1 
7 06 JSR PUT :G0 WRITE COMMAND 
10 BR ie [NO ERROR LOADING REGISTER 
17$: .WORD 0 sERROR FROM PUT SUB 
900004 18$: ADD #4, (SP) ‘TRANSFER ERROR TO USER 
11377 410 000000 VB 178. a(SP) 
24 00055 BR 
034426 004737 040732 19$: JSR PC, TIMOUT :WAIT FOR COMMAND TO COMPLETE 


fF AARAEAAAAAAAAAAAREAEERAEEARERRARARAREARAERARAEKEREEREEEREEREREEREKE 





: VERIFY PACK ere #BIT4 SET IN TASK 
73? 000020 034756 BIT VERIFY PACK ACKNOWLEDGE?? 
737 040110 JSR GET :60 GET STATUS 
10 | cr [NO ERROR GETTING STATUS 
8: ir (SP) ‘TRANS FER ERROR 1D USER 
1 718 aE: 000000 "OVE bat 
52 BR 
737 051026 22$: JSR eC ACKSTS :G0 CHECK ACKNOWLEDGE 
j ge" Ses 
3$:  .WORD :PACK ACKNOWLEDGE ERROR 
4$: TST (SP)+ ‘STRIP RETURN TO SUB AND 
? 900004 ADD #4, (SP) TRANSFER ERROR TO USER 
276 000000 MOVB q3g-a(SP) 
51 BR 
SRAEAAEAAEAARAEAAARAARAAAALAAAAERAAARAAARARAAARAZARAARAARARAARARAARAERRERE 
:RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND "SKI"’ IS SET 
5RECALIBRATE DRIVE IF BIT 10 IS SET 
2 002000 034756 BIT 710,39 zRECAL IBRATE DRIVE ? 
7 004000 034756 BIT #G1T11,398 3RECAL IBRATE?? 
5 BE NO! ! 
737 040110 JSR pC ,GET :60 GET RMDS 
10 BR 2 *NO ERROR GETTING RMDS 


~ 





SS RERRAEAAAEREAEAARAREAREEEEEERERAAERARERERAREARAREREEEREEERERKKKAKE 


VERIFY RECALIBRATE i T 3 SET IN TASK 
BIT 113.35 


034756 ene Y RECALIBRATE?? 


AO RMBO FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 15-3 sid SEQ 0162 
PREPARATION MODULE 

172 % 1 7$ 

1 368 sERROR FROM GET S 

174 0: 1 900004 #4, (SP) S TRANSFER ERROR TO USER 
1% 77 0 26§.a(sP) 

1 

178 sf 737 040000 034760 28S: #Sk1,40$ ; 

1 7 oF 020000 001350 #PIP,RMDSI ; 

} 1 462 38$ 3 

1 12737 7 001412 298 #RECAL !GO,RMCS10 

1 1 o 7 13he S1,PUTINX ; 

| ‘ : CO 

ss Bescgry OMAR RSA Caae”® 
1 5 aren 000000 ; 30$-2.0(5P) ‘ 

54 000434 

034656 004737 040732 31S: PC, TIMOUT :WAIT FOR COMPLETION 

1 

1 

1 

1 





SSSSEFRPSE 
g 
Se 
ae 
: 
So 





737 040110 GET :G0 GET STATUS 
7 10 INO ERROR GETTING STATUS 
16 335: #4, (SP) <ERANSFER ERROR TO USER 
710 176 eae 000000 ; 3e8.9(SP) , 
004737 051622 34$: RCLSTS :G0 CHECK RECALIBRATE 
10 000412 *NO ERROR DURING RECALIGRATE 
1 5$: 
13 348; Ys 
14 716 (SP) 
15 1377 036790 000000 a(SP) 
16 rs 4 2 378: , (SP) ;MOVE SP BACK BEFORE ERROR 
18 4 . sRETURN TO USER 
756 00000C 39S:  s TASK/VERIFY DESCRIPTOR 
4 re rkee 0000C 40S: “CONTAINS RMER 





—_—eo- oa ee 
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: 
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MODULE 


ed ed ed ed eed ord ed ed 2d eed b As 
VERRY WBNOULSWN —OOBNAULSWN— 


~ 
& 


-SBTTL BAD SECTOR MODULE 


sTHE MODULE IS INTENDED TO BE 
‘GENERATOR SUBROUTINE PR 
“BUFFER NEED ONLY BE FILLED 
: OPERATION. 









D OR ASSIGNED 


RETURNS TO 
ASNDA*" AND ‘‘ASNDC*’ 


:1HE MODULE HE CALLING TEST WITH THE 
SECTOR IN THE PUT BUFFER i 


N_LOCATIONS ‘‘ASND 
TO THE TEST OUTSIDE OF THE PUT BUFFER. 












AND ALSO 
;$0 THAT A REFERENCE IS AVAILABLE 
; THE BAD SECTOR MODULE TWO MAJOR FUNCTIONS: 
(1) RECOVER THE BAD S$ S_AND 
OR BASED ON INFORMATION IN 
E ASSIGN A NEW SECTOR IF THE ONE 
ILABLE FOR USE. 






OR INCLUDES: 
@ OR’ ADDRESS, 
) 


0 - THE WORD 
10 -_THE COMMAND 










(5) O = THE FORMAT MODE AND SKIP SECTOR ERROR INHIBIT. 
CALL: 
JSR PC .BADSCT :CALL SUBROUTINE 
BR 229 SRETURN HERE IF NO ERROR 
TYPE § ,MESSAGE ; RE IF THE BAD SECTOR FILE 
ERROR N HE EMT OFFSET NUMBER °N’ IS DEFINED 


BY BAD SECTOR MODULE. 


" 


034762 716 BADSCT: sCLEAR ERROR NUMBER IN USER'S 
0 166 105076 c ase) *ERROR CALL. 
5 162716 #6, (SP) 





sTEST “MEDIA ENABLE’’ TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
HAVE ms wet 








{HAVE BAD SECTOR FILES BEEN RECOVERED ? 
‘YES, BAD SECTOR FILE IS AVAILABLE 


BS HH osc 














RECOVER SKIP SECTOR FILE FROM CYLINDER = 559. = 0 AND 

RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE F FROM. CYLINDER = 558., 
:, ; TRACK = LAST TRACK ( .). ALSO, SAVE THE USER'S PUT BUFFER 
19 10046 MOV .~(SP) ;zPUSH RO_ON STACK 
1 CLR :START WITH RMCS 
14 1412 104254 28: MOV (RO) ,BUFFERCRO) 

ADD ADVANCE TO NEXT BUFFER POSITION 
6 a 3END OF BUFFER 
1  BHIS 2s (NO !! @ 


SET RETRY COUNT AND LOAD PUT BUFFER - REGISTER INDEX TABLE 
7SETUP PARAMETERS T READ SKIP SECTOR FILE FIRST (3S SECTORS) 


gssans g1zrar ganna garose seth Cob 


#565" RMDCO “DESIRED CYLINDER = 559. 


RARUNASSAN SARGGAS 








Oooooeoeo 
WIWNWNAN AAA 


UMMM 
eh cat ad eet at 


NESS HVA 


3 


Ww 
oo, 
~ 
o 


SLAVRBIINVAYNINYASSA SS ROG RUA Kis 
Ooooooococo0no 


=" 
Nm 


r~ 


CSooeoooeo 
WIWIAAIWN WAAL 


MIMI 


LSSSRLESRAVS 


come wee ek ened wee ed eed nd ee ed ed eed ed wed 
AN=SSBLES 
WN—& 


Soooocoecoco 
A.WIAL AIA A 
UIA 


sasassas 
colaeees Se 


RMBO FCT 
TOR MODUL 


— od add oud --9 


© 


emed ed eed ced ed aed ed eed 
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S558 
i i | 


o o- 
onal ad 
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Ww 
N NOOO 


S= 
SENS 
2=N 


| 

—s 
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wa 


ved 


3= 
weed 
os 


na 
Gao 





000006 
035156 
035766 


001400 


000011 
040360 


Be 


040732 
040110 


: 
o3e86 


053364 


See 


a 
1444 
1416 


CLEAR THE DEVICE USING DRIVE he COMMAND 
#0R 0 


98: 





JSR 
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Hi 
10 





a ree : 


SEQ 0164 








io COMMAND IN PUT BUFFER 





MOV : JARTING TRACK = 0, SECTOR = 0 
MOV 7258. * 3 SECTORS (2°S COMP) 
MOV 716 BIT FORMAT 
MOV *SETUP BUS ADDRESS TO READ SKIP SECTOR FILE 
MOV :RO POINTS TO REGISTER INDEX TABLE 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOV :;POP STACK INTO RO 

gget GET INDEX TABLE FOR READING STATUS 

’ JSR PC,GETSTS sSETUP GET INDEX REGISTER FOR STATUS 

JSR PC,GET [GET REGISTERS 
BR 5$ sBR IF 
BR 4$ ‘JUMP OVER ERROR NUMBER 
.WORD 0 [ERROR DEFINED BY GET SUB 

4$: ADD #6, (SP *XFER ERROR TO USER AND 

4$22.0(SP) *GET ERROR NUMBER. 
5$: RMER21,79$ :GET RMER2 AND SAVE FOR LATER 


11$: 


885 BR*Pes ay *%e2 


—e 
Sis 
oe 


JMP 





RROR CALL 
USER CALL 


s ISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 


oO 
= 
— 


a 


ec ed cet eed ceed eed eld eel ed eed ceed eel eed 
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CTOR MODULE 
is 038 7 900100 001350 | BIT — #YV.RMDSI 
1g , ate Bue OtCODSS 
0 012737 001412 MOV #PACACK!GO,RMCS10 
8 7 hires JSR PC. PUT ; 
11 BH 1 ; 
1 1 BR 16$ 3 
4 15$ -WORD 0 3 
1 16$ ADD * (SP) :M0 
4 77 000000 MOVB  15$,a(SP) M0 
5 2 000137 035766 JMP 42$ 
° 9 537 7 040732 17$: JSR PC, TIMOUT WA ON 
7 040110 JSR PC.GET 60 PACK ACK 
11 BR 20g RET NO ERROR 
1 1 BR 1 GET OR # 
1 18$: .WORD 0 ERROR 
3414 6 19$: ADD #6, (SP) “MOVE RS ERROR CALL 
1 176 035412. 000000 MOVE —-18$,, a(SP) : L 
5426 137 035766 JMP 4 
035432 004737 051026 20$ JSR PC.ACKSTS :G0 VERIFY ACKNOWLEDGE STATUS 
54 12 BR SRETURN HERE IF NO ERROR 
544 01 &k : E # 
g18: WORD “ERROR # GOES HERE 
40 6 2$: ST (SP)+ “STRIP RETURN TO SUBROUTINE 
41 716 ADD a (SP ‘MOVE SP TO USERS ERROR CALL 
4g 52 11 776 Meees 000000 MOVB 218, a(SP) ‘MOVE ERROR # TO USERS ERROR CALL 
43 000137 035766 JMP 
45 gRECALIBRATE THE DRIVE IF ‘'SKI°’ OR “PIP IS SET 
‘3 § 3c6 737 040000 037066 BIT #SK1,79$ sWAS SKI SET ? 
48 : BNE 24$ SYES, GO RECALIBRATE 
i 7 020000 001350 BIT #1PRADSI z1S PIP SET 2? 


Sasa 
e=4e sas 
z 


& 12 900007 001412 24$: MoV #RECAL!GO,RMCS10 :LOAD RECALIBRATE COMMAND 
1 040 JSR PC PUT $ 
BR 5 : 
WORD : 
25$: ADD a6 (SP) ; 
000000 MOVB é $-2,a(sP) : 
1 5766 JMP 2$ 
7 04073 26$: JSR PC, TIMOUT WA 
7 11 JSR PC GET 60 
bt BR 8$ ‘GE 
7$: WORD 7E 
oe a3336 000000 388: MOVE BB Shep) : ERS CALL 
135 5766 JMP 423° ° 


035576 004737 051622 29S: JSR PC,RCLSTS :G0 VERIFY RECALIBRATE STATUS 
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WANA WIA 
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on oO 


054166 


037054 


100720 


100040 


001412 


001336 


001352 


001400 


READ THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 
LOAD READ HEADER AND DATA COMMAND 
PUT COMMAND 

“RETURN HERE 
“GET AROUND 


BR 
BR 318 

a8: ‘ 

1$: TST (SP)+ 

ADD (SP) 
MO ,a(SP) 
JMP 
MOV #RH'GO,RMACS10 
JSR re PUT 
BR § 
BR $ 

33: PY iad (SP) 
MOVB ATS YEON 
JMP 42$ 

358: JSR PC, TIMOUT 
JSR PC,GET 
aa 
BR 

368: eWORD 0 

7$: ADD #6, (SP) 

MOVB 368.8(SP) 
JMP 42$ 

38$: JSR PC .DTASTS 
BR 41$ 
BR 40$ 

39$: eWORD 0 

40$: TST (SP)+ 
ADD (SP) 
MOVB 39$,a(SP) 
JMP 42$ 

41$: BIT #TRE ,RACS1I 
ANE 4 
BR 51$ 


SE RRRRERAERRERRRERERAREEARERERARERAERARARREEERERRERKEREEREREERERE 
EN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 
BE RETRIED IF POSSIBLE. 


:YES, DECREMENT RETRY COUNT AND 
RY IF COUNT IS POSITIVE 


: THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 


-ANY MEDIA RELATED ERRORS ? 
NEXT AVAILABLE SECTOR 
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0 K!HCRC! HCE! FER! ECH,RMER1II 
4 sVES, GO TRY 


sAN_ERROR HAS BE 
THE SECTOR WILL 
42$: DEC 74$ 
BNE 48$ 
BIT 
BNE 
BIT 
BEQ 


E!SSE,RMER2I ;ANY 
498 : 


ee 

& 
< 
m 


sWAIT FOR READ OPERATION TO COMPLETE 
:GO_ GET STATUS FOR READ OPERATION 
TURN HE ERROR 


sANY CONTROLLER ERRORS ? 





OU 
ERROR # 


IF NO ERROR 


ERROR # 


R 
MOVE SP TO USERS ERROR CALL 
sMOVE ERROR # TO USERS ERROR CALL 


T 


USERS ERROR CALL 
# TO USERS CALL 





sBR IF YE 
sNO ERRORS DETECTED 


sRET 


MEDIA RELATED ERRORS ? 
sNO, EXIT AND REPORT ERROR ON RETURN 


;THE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE 


OU 
RS ERROR 
O USERS CALL 


SEQ 0166 


ee cre EE as 
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mn w 


SHIKARI 
oo ooo 
Ge ie 


i) 


RAR 


+ 

7 0 

i 

44 0 

45 

23 2 74 

47 036102 

48 036104 

49 112 

50 036114 

51 036122 

8 asa 
i 

Bs 


SONRUE 





SINR 


Soooooeooceco 
ROROOSONE 














8 :DUE TO THE MEDIA. SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM 
*ANOTHER AREA ON THE LAST TRACK 
2737 000040 001400 43$: BIT #SSE ,RMER21 3SSE ERROR ? 
14 BEQ 44$ :NO ! 
005237 001420 INC DISPLACE SECTOR ADDRESS BY 1 TO 
“ACCOUNT FOR THE SKIP SECTOR ERROR 
05 73? 001000 001444 BIS #SSE1,RMOFO *AND SET SSEI IN OFFSET REGISTER. 
$364 2 BR 47$ ‘TRY AGAIN 
737 2 001420 44$: ADD i RMDAO sADVANCE SECTOR ADDRESS BY 2 
7 g 1056 001446 CMP 338. -RADCO READING DEC 144 BAD SECTOR FILE ? 
3637 001420 INC RADAD [IF READING SSF, THEN ADVANCE SECTOR ADDRESS BY 1 MORE 
122737. 000017 001420 c #15. ,RMDAO ‘QUIT IF ALL SSF SECTORS HAVE BEEN 
101424 BLOS 49$ ‘TRIED. 
000414 BR 47$ 
0 2737 106264 001416 45$: cup WMEGFIL,RMBAO READING MANUFACTURES BAD FILE ? 
2737 000012 001420 CMPB #10. .RMDAO ‘QUIT IF ALL MFG SECTORS HAVE BEEN 
120737 000040 001420 46$: CMPB $#32..RMDAO “QUIT IF ALL USER SECTORS HAVE BEEN 
101407 BLOS  49$ * TRIED. 
012737 000003 037054 47$: MOV #3.74$ sREINSTATE RETRY COUNT FOR THIS SECTOR 
162716 000006 48$: SUB #6, (SP) “MOVE SP BACK TO NO ERROR 
137 035142 JMP 3s *RETRY THE READ OPERATION 
que BAD SECTOR FILE CANNOT BE READ : 
$8549 azeoo i sc 
030777 02 143002 BIT #Su13.aSuR :INHIBIT MES ? 
162716 000004 SUB #4, (SP) “MOVE SP TO ERROR RETURN 
137 037050 50$: § JMP 73$ *GO TO MODULE EXIT 
sTHE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE MFG/USER FILE IF 
THIS IS THE SSF FILE OR ELSE DONE. 
ie 001056 001446 cop #558. ,.RMDCO sREADING DEC 144 FILES ? 
335 037070 JSR PC ,GETSSF “GET SKIP SECTOR FILE FOR USE 
12 7 001056 001446 #558. .RMDCO sREAD DEC 144 FILE, CYLINDER 558. 
13737 001 34 001420 “MFG ! ILE LAST TRACK, SECTOR = 0 
12737 01 001444 *16 AIT F 
12737 1 64 001416 “POINT TO MANUFACTURES ofdte BUFFER 
12737. 177376 001414 *2 + 256. WORDS (2"s 
15 - *GO READ MFG FILE 
020737 107272 001416 ; sWAS THE USER FILE READ ?? 
14 6 “YES = READ IS COMPLET 
11 900012 001420 “READ THE USER FILE LAST TRACK, SECTOR = 10. 
ot 7 107272 001416 *POINT 10 USERS FILE BUFFER 
12737 010000 001444 #FMT16, <imeno 716 BIT FORMAT 


: 
5 
: 


FCT 
MODULE 


MMNNRIKITN Ww 
SSSSSSVSVPIPBIVB_ SRA 


~ 
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oo 
ex 


OOoooceoco 






eed cod eed ccad ond cued end ond omd and 


OOQoQoooooSoooooooooooooceo 
aa 
SRS 
S=5 
3 


036440 012737 


36452 012737 
g O3ease 012787 


000137 
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600003 037054 53$: MOV sRELOAD THE RETRY COUNT FOR THIS SECTOR 
14 JMP :GO READ THE USER FILE 


gfe! MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 


#3,74$ 
3$ 


MOV m0 »~(SP) ::PUSH RO ON STACK 
CLR *RO IS REGISTER INDEX 
177777 00151 MOV ENB 
104254 001412 55$: MOV Byr FERCROS PUTBUF (RO) 
2 ADD - AD VANCE RO 
6 CMP ae RO “DONE ? 
BHIS Sc$" 


MOV (SP)+,RO 33POP STACK INTO RO 


SRR RREAREREERERREREEEREEEREERERAREREREREEEREEEEKEEEKEEREEREEE RE 
“VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE, 
:NOT IN THE USERS BAD SECTOR FILE AND NOT IN THE SSF BAD SECTOR FILE. 
sASSIGN A NEW SECTOR IF THE SECTOR IS IN ANY OF THE FILES. 


PTTTITITIIT IIIT TIT LISI Titi titi iii itt itiiitiiiititili tii t tii it 


















LOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 
; RO,-(SP) $3: ou +t RO ON STACK 
R1,-(SP) SH R1 ON STACK 
~(SP) San R2 ON STACK 
001446 001516 RMDCO,ASNDC LOAD REQUESTED CYLINDER, TRACK, 
001420 001520 AO.A ‘AND SECTOR ADDRESS IN ASSIGNED STORAGE 
‘R2 = NUMBER OF SECTORS 
001414 =RO = WORD T 
CMAKE NUMBER POSITIVE 
000400 *R1 = NUMBER OF WORDS PER SECTOR 
000002 001412 is THIS A HEADER AND DATA COMMAND ?? 
000402 #258. .R1 “CHANGE WORDS PER SECTOR 
57$: R1 ,RO i1S THERE A FULL SECTOR ?? 
RO. :18.RO, ZERO ?? 
Re “INCREMENT FOR PARTIAL SECTOR 
58$: R1,RO sSUBTRACT ONE SECTOR FROM WORD COUNT 
R ‘INCREMENT SECTOR COUNT 
037054 59S: R2,74$ :SAVE SECTOR COUNT 
sLOAD PARAMETERS AND SEARCH THE MFG, USER AND THE MAPPED SSF BAD 
“SECTOR FILES FOR THE ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT 
“SECTORS IF THE SECTOR COUNT IS MORE THAN ONE. 
106300 037064 | MOV . M#MFGFIL+14,78$ ;THE STARTING ADDRESS OF MFG FILE 
?TO BASE ADDR ESS STORAGE. 
036506 JSR PC,60$ *60 SEARCH FIL 
0 037064 MOV #USRFIL+14,.78$ :LOAD STARTING ADDRESS OF USR FILE 
*TO BASE ADDRESS STORAGE. 
036506 JSR *60 SEARCH FIL 
11 037064 MOV Meee ri +4, 788 ;LOAD STARTING ADDRESS OF MAPPED SSF 
“FILE TO BASE ADDRESS STORAGE. 


SEQ 0168 
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BAD SECT 
3 


036472 005037 


30 oscars on47e7 


ines 


- ror? om um, om, me Om, Pe | ~- +o +? o 
- “Py 


Oooooo 
SAERE 


w 
© 


oo 


al 


50 
31 
33 
54 
55 
6 
: 
51 
a7 


a 


Bs ee 


001514 


037026 


Sis 


om 


037060 


037063 
037062 


177777 





4 


000003 
000002 


001514 


001444 
001520 


001520 
001521 


001516 


CLR 


JSR 
JMP 


60$: MOV 
MOV 
MOV 


61$: MOV 
62$: CMP 


sFILE ENTRY EQUALS COMPARING CYLINDER. 


SSF ENB 


aT ea 


aes C268 


74$, mere 


;SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 
:CYLINDER, TRACK AND SECTOR ADDRESS 


78$,RO 


ae (RO) 


rs. 2 (RO) 


: THE COMPARING TRACK, 









63$: 


:THE COMPARING CYLINDER 
“ADVANCE THE ASSIGNED SE 


64S: 










65$: 


CMP 
BHIS 
TST 
BR 








:IN THE 1ST HE 
;SEARCH SKIP SECTOR 
;DONE WITH ALL FILE SEARCHES !! 


LOAD COMFARING CYLINDER ADDRESS 
sLOAD COMPARING TRACK, SECTOR 5) 


‘LOAD NUMBER OF SECTORS 


sASSUME ‘SSF’ rts NOT TO BE WRITTEN 
MAPPED FILE 





TO CONFIRM 


LOAD THE BASE ADDRESS IN RO 
31S THIS FILE TERMINATOR ? 


Y 
at THIS CYLINDER IN BAD TABLE ? 
BR IF NO 


SEE IF THE NEXT 


ENTRY EQUALS 


AND SECTOR. 
77$+1,3(RO)  ;1S THIS TRACK IN BAD TABLE ? 
63$ :BR IF NO 
77$.2(RO) 31S THIS SECTOR IN BAD TABLE ? 
63$ :BR IF SECTOR IS LESS THAN TABLE ENTRY, ELSE 

#1, SSFENB SENABLE °SSF’ BIT TO BE WRITTEN IN THE 
| :1ST HEADER WORD. 
(R0)+,(RO)+ NO, ADJUST CYLINDER POINTER IN BAD FILE 
SAND CONTINUE SEARCH. 


TRACK AND SECTOR IS_IN THE BAD SECTOR FILE. 
CTOR AND START THE SEARCH ALL OVER. 


ASNDA 
1 ,RMOFO 





i o 2ASNDA 


ASNDA 
C 


Se 


ASNDA+1 
ee! 


* ~ASNDA 
YES !! 


s SECTOR OK ?? 


: INCREMENT SECTOR 
is § SSEI SET ? 


SECTOR OK ? 






sYES =! 
sCLEAR SECTOR AND ADVANCE TRACK 


#360. .ASNDC :CYLIN 






:TRACK OK ? 
sYES ! 


CLEAR TRACK AND SECTOR 
s INCREMENT CY i | oe | 
mer OK ? 





Ss 
RESTORE STACK AND 
:GET OUT 


THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES. 


[NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER 


DECREMENT THE 


SEQ 0169 
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iis ‘NOT ZERO. | 
337 037056 a 258 ;DECREMENT NUMBER OF SECTORS TO COMPARE 
: BEQ 7 ZERO 


$6708 goss pecnene 


SSESe3 
ooo 
ueS 


















0 1 5 7 037062 77$ s INCREMENT THE COMPARING SECTOR 
401 0 7 001 001444 #SSEI,RMOFO is § SSEI SET ? 

1 ¢ 000037 037062 #31.,77$ SECTOR OK ? 
4 103032 g $ YES !! 
4 122737 000036 037062 68$: #30.,77$ sSECTOR OK 2? 
40 1 5 70$ YES ! 
408 1 37 69S: ‘CLEAR SECTOR 

756 105237 037 77$+1 ‘INCREMENT TRACK 
410 036742 123737 001 037063 L TRK+1,77$+1 TRACK OK 2? 
411 036770 103015 Os “YES |! 
aie 0 77 5 037062 77$ [CLEAR SECTOR TRACK 
41 77 5237 037060 06s * INCREMENT CYLINDER 
41% 00 $005 001060 037060 #560. ,76$ : CYLINDER OK 7? 
416 013737 037060 001446 76$,RMDCO ‘LOAD CYLINDER 
417 0 005726 (SP5+ “RESTORE STACK AND 
418 037022 000407 BR 7 *GET OUT ! | 
4 037024 000641 70$: BR 61$ sSEARCH NEXT SECTOR 
4 7 _— ZASSIGN THE SECTOR AND RETURN TO USER 
424 0 O36 013737 001516 061446 "MOV ASNDC .RMDCO :LOAD CYLINDER 
4 5 0 703 013737 001520 001420 an ASNDA, RMDAO *LOAD TRACK AND SECTOR 
o370¢5 012602 : (SP)+,R ::POP STACK INTO R2 
037044 012601 (SP), R ::POP STACK INTO R1 

a 037046 012600 (SP)+,RO *:POP STACK INTO RO 
428 037050 000240 73$: NOP 
4 037052 000207 RTS PC 
4 1 :THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 
433 037054 000000 74$:  . WORD sRETRY COUNT/ NUMBER OF SECTORS REQUIRED 
4 000000 75$:  .WORD ‘NUMBER OF SECTORS TO COMPARE 
435 76$:  . WORD ‘COMPARING CYLINDER 
4 “WORD [COMPARING TRACK AND SECTOR 
4 88: WORD “BASE ADDRESS a BAD SECTOR FILE BEING SEARCHED 
4 0 : WORD *CONTAINS RMER 
440 :THIS ROUTINE SEARCHES THE SKIP SECTOR FILE F 
441 ‘WHICH OCCUR ON THE FE CYLINDERS. THE BAD SECT 
44g ‘INTO A °SSFIL’ TABLE TO BE USED BY THE ‘BADSCT' ROUTINES 
444 0 GETSSF: 

1 MOV RO.~($P} 7 PUSH RO ON S 

1 146 R1,-(SP) * PUSH R1 ON S 
445 7% 0127 105260 TWO,RO RO = POIN 
446 037100 012701 110 #SSFIL,R1 =R1 = POIN 
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ECTOR MODULE 





















SECT 
447 7104 012021 MOV (RO)+, (R1)+ :SAVE HEADER WORD O(CYL ADDRESS) 
448 MOV (RO) +. (R1)¢ SSAVE HEADER WORD 1(TRK/SEC ADDRESS) 
450 03711 177777 1$: MOV #~1, ( SINITIALIZE "SSFIL' TABLE 
43} ab 12 93 2761 110374 CMP ASSFIL+60. 8 :D 

37120 BNE BR IF "0 

71 11 MOV W#SSFIL+4,R1 sSETUP TO MAP SSFIL T 
34 8 nse O73 700 b000%6 ADD #3 RO ‘GET OVER SIN(B) oGREA T SPATE. REV DATE REV, 
46 SFORMAT TY D WORDS(3). ENTRY# AND 
45 *CHECKSUM (11. UNUSED 
438 sari 021027 7 001057 2$: CMP (RO) #559. ; is Cy CYLINDER IN FE AREA ? 
460 03714 101008 BHI 3$ ‘YES, ON CYLINDER 560. 
461 ‘YES, WHEN ON CYLINDER 559. DO NOT LOG 
462 “ANY BAD SECTO THAT OCCUR ON THE SKIP 

‘SECTOR TRA of R ALTERNATE DEC144 TRACK(1) 

464 3714 1260 7 000003 000001 CMPB OS s«3(RO) , #1 ‘1S IT ON Tack 
465 0371 3 BLE 4$ SYES !! 
466 3715 11021 3$: MOV (RO),(R1)+ “LOG THIS CYLINDER AND 

71 16021 000002 MOV 2(ROS, (R1)+ * TRACK/SECTOR IN 'SSFIL* TABLE. 

037160 0 20 4$: CHP (RO) +, (RO)+ sADJUST BUFFER TO NEXT CYLINDER ENTRY 
470 0 020127 110374 CMP R1,ASSFIL+60. ANY MORE ENTRIES AVAILABLE IN TABLE ? 
471 037166 103003 is $° :NO, EXIT ! 
are 7170 020027 110274 CMP RO, #BUF TWO+1548. DONE WITH ALL 3 SECTORS ? 
473 7174 103756 BLO 2$- NO, DO NEXT ENTRY 
473 0 176 01 73? 177777 107270 5$: MOV #~1,.MFGFIL+516. somen TERMINATOR TO MFGFIL 
re 037 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
0 10 012600 MOV (SP)+,RO ::POP STACK INTO RO 

478 12 000207 RTS PC 
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BUFFER GENERATOR SUBROUTINE 




































1 .SBTTL BUFFER GENERATOR SUBROUTINE 
5 : THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. THE 
4 BUF FE R STAR AT RMBA AND IS RMWC WORDS LONG. THe FER 
g ZCONTAINS A REPETITIVE DATAL PATTERN CONSISTING OF $TMP1 WORDS 
4 “FROM THE DATA PATTERN TABLE NNING AT ADDRESS $TMPO. 
? “HEADER INFORMATION FOR THE guFFER I 1S EXTRACTED FROM RMDC, 
g :RADA AND RMOF. 
10 ERO = ADDRESS OF DATA BUFFER 
11 LENGTH OF DATA BUFF 
12 = ADDRESS OF DATA PATTERN 
1 = LENGTH OF DATA PATTERN 
1% Ra = SECTOR COUNT 
16 3; CALL: 
17 7(1) «JSR PC, GENBUF 
18 7(2) 7? RETURN HERE 
20 037214 GENBUF : 
037214 010046 MOV :z;PUSH RO ON STACK 
03721 010146 MOV * PUSH R1 ON ST 
0 10246 MOV 7 3PUSH ON STACK 
Ot MOV 3 sPUSH R3 ON STAC 
4 01 MOV “PUSH R4 ON STACK 
1 Ot 700 001416 MOV :LOAD DATA BUFFER ADDRESS 
0 1 701 001414 MOV “LOAD WORD C | 
013737 001446 037456 MOV ‘LOAD STARTING CYLINDER ADDRESS 
4 037244 o13037 001420 037460 MOV “LOAD STARTING TRACK,SECTOR ADDRESS 
0 52 032737 000002 001412 1S: BIT 1T1,RMCS10 WRITE HEADER & DATA?? 
1451 BEQ 
8 0 13710 037456 MOV (RO) eTWRITE HEA HEADER 
0 052710 120000 BIS amse! cer Bas SECTOR FLAGS FOR GOOD SECT OR 
012702 000035 MOV #29., <R2 = MAXIMUM SECTOR ADDRESS (29.) 
03 7% 2737 010000 001444 eI #FMT16,RMOFO :18 SIT FORMAT?? 
03 z710 010000 BIS #FMT16, (RO) ‘SET ié FORMAT BIT IN HEADER 
5 1 20 INC R2 “CHANGE MAXIMUM SECTOR ADDRESS (30.) 
14 052737 001000 001444 SIT #SSEI ,RMOFO :1S SSEI SET TO ACCESS ALL SECTORS ? 
2 001401 BEQ 2$ “NO !! 
4 005202 INC R2 ‘CHANGE MAXIMUM SECTOR ADDRESS (31.) 
4 005201 2s: INC R1 s INCREMENT WORD COUNT 
a3 037386 001443 Q 6$ “EXIT IF DONE 
4h 005720 (RO)+ sMOVE RO TO HEADER #2 
45 137 0 037460 8$, (RO)+ ‘WRITE HEADER WORD # r+ , 
46 1 R1 s INCREMENT WORD COUNT AND 
4 1 6$ “EXIT IF DONE 
48 O1 037460 #8$ ,R3 “ADVANCE SECTOR ADDRESS 
i 30 Re. (RS) s SECTOR OVERFLOW ?? 
} 56 10501 (R3) “YES = CLEAR SECTOR ADDRESS 





co 
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BUFFER TOR SUBROUTINE 
53 1 INCB 1(R3) sADVANCE TRACK ADDRESS 
$3 1 1335 000001 CMPB TRK+1,1(R3) s TRACK OVERFLOW ?? 
5 1 BHIS 7N0 !! 
28 1 1 CLRB :YES = CLEAR TRACK ADDRESS 
1 INCE ;ADVANCE CYLINDER ADDRESS 
3$: MOV #256. ,R4 ;LOAD SECTOR DATA COUNT 
1 1174 4$: MOV & oR :LOAD PATTERN ADDRESS 
60 1 1176 MOV TMP1,R :LOAD PATTERN COUNT 
61 1 5$: MOV (R2)+, (RO)+ sWRITE DATA PATTERN 
6¢ INC 3 EMENT WORD COUNT AND 
} BEQ sEXIT IF 
64 DEC :DECREMENT SECTOR COUNT 
65 1 19 BE 1 sSTART NEXT SECTOR IF 0 
66 DEC R sDECREMENT PATTERN COUNT 
6 1 £63 Q 4$ sRESTART PATTERN IF 
re 0 6s BR 5$ : CONTINUE DATA PATTERN 
1 MOV (SP)+,R4 33:POP STACK INTO R46 
12603 MOV (SP)+,R3 :3:POP STACK INTO R3 
12602 MOV (SP)+,R2 ::POP STACK INTO R2 
12601 MOV (SP)+,R1 :3;POP STACK INTO Ri 
1 MOV (SP)+,RO ::POP STACK INTO RO 
70 40 NOP 
4 7 RTS PC 
paisa 7$: WORD sCYLINDER ADDRESS STORAGE 
74 8$: WORD 3 TRACK, SECTOR ADDRESS STORAGE 





; 
5 
é 


al 
m 
> Taal 





rs 
® 


& 
; 
10 
i 
i 
14 
15 
16 
BH ono 
sie 10146 
a8 SHS 
& 1 
18 0574 503 
19 
1 037476 033737 
Hae 
4 1 1457 
9 7 
rat Bus 
5 1447 
542 013701 
52737 
5 


7 
761 1270 


z 037616 030237 


001404 
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001370 
001352 
001352 
001370 


040022 


SEQ 0174 


~SB8TTL COMPARE BUFFER SUBROUTINE 


;THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE Tee 

1S THE BUFFER FROM WHICH DATA. WRITTEN 
CAND BUFTWO IS T T S IN BUFFER 
“COMPARISON ARE REPORTED TO THE USER VIA THE ROSER er ERROR CALL. 






sCALL: 
7(1) JSR CMPBUF 
7(2) WORD URI TE E BUFFER ADDRESS 
; “WORD READ BUFFER ADDRESS 
*(3) = BR 27 RETURN HERE IF NO ERROR 
*(4) NOP RETURN HERE IF ERROR 
*(5) ERROR ERROR DEFINED BY SUBROUTINE 
3 (6) 2??? 
CMPBUF : 
MOV RO,-(SP) ::PUSH RO ON S TACK 
MOV R1.-(SP) *sPUSH R1 ON STA 
Re. ~~ (SP) : :PUSH Re ON STA 
-(SP) *:PUSH R3 ON S 
14 SELEAR CORRECTION. FLAG 





DETERMINE IF DATA SHOULD BE CORRECTED 
BIT 1 ,RMOF I NOt: ECC CORRECTION ALLOWED ?? 









BNE 

ou acai cMAS THERE A DATA CHECK ?? 

ae CH, RMER1I 15 ERROR CORRECTION HARD SET ? 
BIT #FMT16,RMOF I 31S ya 16 BIT FORMAT ?? 

BEQ 9% ZNO ! 


sCORRECT DATA USING ECC INFORMATION 


act a = STARTING BUFFER ADDRESS 
RMECTI.R1 : ION 





MOV = ECC POSIT 
BIS weit °14$ “SET CORRECTION FLAG 
“MOVE RO TO WORD Y OF ERROR BURST 
iS: CMP #16. RI 21S BIT POSITION > 1 WORD 
BHIS <3 “NO !! 
Sus $ 16 RI “SUBTRACT 1 WORDS WORTH 
Ts T }+ “ADVANCE BUFFER ADDRESS 1 WORD 
2$ MOV yi. : Rez 8 = BIT POINTER 
MOV R2, “R3 = BIT NUMBER 
“MOVE R2 TO STAR NG BIT OF ERROR BURST 
S$: cmp Mee SRS, SAME AS R1 ?? 
ASL 4 a ‘BIT POINTER 
INC RS ‘INCREMENT BIT NUMBER 
4$: MOV #11. .R3 :R3 = LENGTH OF ERROR BURST 
ORRECT THE ERROR BURST 
é$: BIT R2,.RMEC2I 31S THIS BIT SET IN ECC PATTERN ?? 





z 
5 
: 


on 
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SUBROUT INE 






















Lal 


wer Te fF 155° C 


3 
PMNS IIVINNAYVISSLSSRASSSyyyry B 


BEOQ :NO = DO NOT CORRECT THIS BIT 
eit (RO) :1$ THE BIT PRESENTLY SET ?? 
BIC eS “RESET THE BIT 
$$ BIS R2, (RO) :SET THE BIT 
ASL R ‘SHIFT TO NEXT BIT 
#1 Re sCONTINUE WITH FIRST BIT OF NEXT WORD 
8$: R3 sEND OF BURST 2? 
5$ 3NO !! 
jCOMPARE WRITE BUFFER TO READ “ihe 
$00 : MOV a10(SP) RO >R ITE BUFFER 
ADD ae 10(SP) nOVE SP TO READ ADDRESS 
17601 MOV a10(SP) ,R1 = READ BUFFER 
: 000010 ADD #2,10(SP) : SP TO RETURN ADDRESS 
1 001 MOV RAUCI Re = NUMBER OF WORDS TRANSFER 
1414 SUB RMWCO,R 
10$: CMP (RO)+, (RI) ee, DATA WORDS 
0 BNE 11 : 
DEC R 
0 1374 1 
33 1 
DATA C FAI 
037722 14037 001140 11S: -(RO) . SGDDAT 
0 14137 001142 -(R1) ,SBDDAT 
1 0011 ADR 
: 





ORRECT 





23 gesgssas Se 
PY : 


FAILE 
C CORRECTION USED ?? 


J 





9} BEQ “NO ! 
9 MOVB 63,910(SP) : CTION FAILED 
9 12$: SUB #2,10(SP MOVE O RETURN IF ERROR 
94 NOP 
95 13$: 
MOV (SP)+,R :POP STACK INTO 
MOV (SP)+.R ¢ {POP STACK INTO 
MOV (SP)+-R *:POP STACK INTO R 
MOV (SP)+, *:POP STACK INTO RO 
3% RTS PC *R TO 
98 040022 14$: WORD SECC CORRECTION FLAG 


- 


ed ed ed ed ed ed ed ed ee 0 ee po 
a aN eo dete ep COOONC Vl W = >> 
R 2 RR 


Ro 





-s 
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-SBTTL GET STATUS SUBROUTINE 








a» 
a 
nn 
wv 
oo 








S_ SUBROUTINE SETS UP THE ‘GET I TABLE’’ AND THE ‘'GET 
‘BUFFER FOR READING AL SUBSYSTEM. REGISTERS VIA THE GET SUBROUTINE 
; AND THEN RET TO THE USER. 

‘CALL: JSR PC,GETSTS 
; ??? RETURN HERE 
GETSTS: 
MOV RO,-(SP) a : on STACK 
MOV R1,-(SP) TACK 
MOV R PUSH Re ON STACK 
MOV pet tt: OF INDEX TABLE 
ay RI ER 
1$: MOVB iRe RE TABLE 
CLR SCLEAR CORRESPONDING LOCATION 
2s: SUB $ 
BMI $ 
CMP 3 
BNE 
CLR 
BR 
3$: MOVB sWRITE T T 
MOV :;POP STACK INTO R 
MOV ::POP STACK INTO R 
wea ::POP STACK INTO RO 


SEQ 0176 


oe coe ee eo eee ——_—<—s = = 

































PAU RASU FCINL PTS RMACRO VU6.UU CG-JANWGe 10:4¥i5¢ PAGE <VU SEQ Uis/ 
SUBROUT INE | 
1 .SBTTL GET SUBROUTINE 
i: pean READS THE REGISTERS WHICH AR | 
6 THe "GET ET nEGISTER BUFFER Fon | 
§ N THE RE E THE S$ | 
S CON 
10 
} : 
18 ; SUBROUT os 
14 =(1) TABLE'' HAS BEEN LOADED WITH REGISTER INDEX 
15 : VALUES AND TERMINATED WITH A CONTROL BYTE 
16 *(2) “GET INPUT BUFFER’ IS AVAILABLE FOR USE. (NOTE THAT 
1 : UNUSED LOCATIONS, 1 £. ENTRIES IN BUFFER CORRESPONDING 
18 : TO REGISTERS NOT READ, ARE NOT CHANGED.) 
19 *(3) JSR PC,GET 
: BR 229 RETURN HERE IF NO ERROR FOUND 
1 : NOP RETURN HERE IF ANY ERROR FOUND 
g ; ERROR SUB DEFINES ERROR NUMBER 
4 : 
5 *RO = REGISTER BASE ADDRESS 
*R1 = REGISTER ADDRESS 
7 ‘R2 = BUFFER BASE ADDRESS 
:R3 = BUFFER ADDRESS 
*R4 = POINTER TO REGISTER INDEX 
1 04 000240 GET: 
062 1 000006 SP) :CLEAR ERROR NUMBER IN USER'S 
10 076 ) sERROR CALL 
000004 (SP) 
% 1 (SP) :2PUSH RO ON STACK 
10146 (SP) *:PUSH R1 ON STACK 
1 246 (SP) *:PUSH R2 ON STACK 
(SP) ::PUSH R3 ON STACK 
-(SP) *:PUSH R4 ON STACK 
46 : ; PUSH ERRVEC ON STA 





; sPUSH ERRVEC #2 ON STACK 


» Oe 
2 ee 


sSETUP FOR TIMEOUT 


PEEEEEEELEL EE IS BER 
ps) 


sa 


















41 04021 7 é GET ‘NED STATUS 
7 $1( *GET “DVA'’ STATUS 
43 04 BIT :DEVICE AVAILABLE?? 
44 040¢ 907 BNE “YES 
45 04 766 ADD ) “WRITE ERROR NUMBER IN USER'S 
46 4 ° MOVB af 6s 6(SP)  SERROR CALL 
48 04 4 OTe ths) :DONE?? 
8 4 0¢ 3 BM] AS West 
30 4 ( 401 MOVB (R4),R1 = REGISTER ADDRESS 
1 042701 177700 BIC #*CIDXMSK,R1 inl te ANY SIGN EXTENSION 
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SEQ 0172 
GET SUBROUTINE 
ADD RO.R1 
MOVB = (R4)+,R3 :R3 = STORAGE ADDRESS FOR REGISTER 
BIC nC] XMSK,R3 “CLEAR ANY SIGN EXTEN sion 
MOV GRID, (R3) sREAD REGISTER 
BR $ 
3$: (SP)+, (SP)+ :RESTORE STACK 
000016 " -16(8P) ;WRITE ERROR NUMBER IN 
900016 #7,a16(SP) ‘USER'S ERROR CALL 
100016 4$: #2.16(SP) 
5$: (Rd) :DONE CLEARING?? 
R3 ‘CLEAR REMAINING STORAGE 
(R4)+,R3 s LOCATIONS 
ADD R2,R3 
RS) 
- BR * 
MOV (SP) +, ERRVEC+2 ::POP STACK INTO ERRVEC+2 
MOV (SP)+, ::POP STACK INTO ERRVEC 
MOV (SP)+, =:POP STACK INTO R4 
MOV (SP)+,R *:POP STACK INT 
MOV (SP)+,R *:POP STACK INTO R 
MOV (SP) +, :3POP STACK INTO Ri 
MOV (SP)+,RO ::POP STACK INTO RO 
RTS PC *RETURN 


> 
Cc 


a et tg epee 
MFEUIN OOO NOUS WN —OVONOULWH— 


DONRAEGNIS SRUSUEU HS 


TINE. PID FALRYU V¥US. vv “JAIEWOE 1O297F72 06 FADE Ci ote Ulry 


-SBTTL PUT SUBROUTINE 


;THIS SUBROUTINE efiTes THE REGISTERS WHICH ARE LISTED 
-"PUT I TABLE ‘ 1TH Al. HE CONTENTS OF T THE CORRESPOND 

SOLATION® INT Pur STER BUFFER’. E NUMBER OF 
*REGISTERS WRITTEN IS VARIABLE: E Ano bx TABLE MUST 
iBE TERMINATED WITH A CONTROL iyte (200) WHICH SHOULD 
:FOLLOW THE LAST ENTRY. 


SUBROUTINE CALL: 
(1) ‘PUT 
; OF REGISTERS O BE WRITTEN. 

3 (2) “PL REGISTER burr Er CONTAINS CONTENTS OF EACH 
REGISTER TO BE WRITTEN. 

(3) JSR neo 


THE 






IN 
ING 






E** HAS BEEN LOADED WITH INDEX VALUES 















: BR RETURN HERE IF NO ERROR FOUND 
: NOP RETURN HERE IF ANY ERROR FOUND 
: ERROR SUB DEFINES ERROR NUMBER 
=RO = REGISTER BASE ADDRESS 
*R1 = REGISTER AD 
:Re = BUFFER BASE ORDDRESS 
*R3 = BUFFER ADDRESS 
“RG = POINTER TO REGISTER INDEX 
040 000240 PUT NOP 
040 010046 MOV 3:PUSH RO ON STACK 
040 10146 MOV *:PUSH R1 ON STACK 
10246 MOV *:PUSH R2 ON STACK 
0 10 MOV [PUSH R3 ON STACK 
5 1 MOV 3;PUSH R4 ON STACK 
037 1S9ee MOV 33PUSH ERRVEC ON STA 
1400 0137 MOV + :PUSH PRAVEC 2 ON STACK 
404 01 MOV 
40410 01270 MOV 
1414 01 MOV 
140420 012737 MOV :SETUP FOR TIMEOUT 
14 26 ot MOV 
aC 1 MOV GET ‘NED'' STATUS 
; 01 MOV “GET ‘DVA"’ STATUS 
14 ( BIT :DEVICE AVAILABLE ?? 
14045¢ 1007 BNE os *YES!! 
146C 766 ADD ous “WRITE ERROR NUMBER IN 
140466 11 £6 nove a SUSER'S ERROR CALL 
140476 714 TSTB 2R) :DONE?? 
140500 100431 BMI 3YES!! 
040502 111401 MOVB  (R4) RI :R1_= REGISTER ADDRESS 
04050 177700 BIC #CIDXASK.R1 “CLEAR ANY SIGN EXTENSION 
408 12 14 MOVB - (R4) RB :R3 = STORAGE ADDRESS 
040% 177700 BI #CIBAASK RS CLEAR ANY SIGN EXTENSION 
2405 1311 Ras) (R1) sWRITE REGISTER 
140524 122714 000032 #RMOF , (R4) “WAS RMOF JUST LOADED ? 
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PUT SUBROUTINE 





1 SNE we 
38 Whitt ie i MOV (R3),(R1) HAT 16 BIT MODE 
22 5 1957 4 3$: TSTB ss (RG) + . 
gs Bis 36 000 
§ ssste 4$: CMP (SP)+, (SP)+ sADJUST STACK 
O40542 16 ADD #4, 16(SP) WRITE ERROR NUMBER IN 
Hes | 7 16 MOVB  4#7.@16(SP) [USER'S ERROR CALL 
556 2 16 5$: SUB #2,16(SP) 
6$: 
i 12637 MOV (SP) + ERRVEC*2 :POP STACK INTO ERRVEC+2 
04 376 1 3 7 itd MOV (SP)+,ERRVEC ;:;POP STACK INTO ERRVEC 
74 01 MOV (SP)+,R4 ::POP STACK INTO R4 
04057 1 MOV (SP) + oR :;POP STACK INTO R 
1 MOV (SP)+,R :;POP STACK INTO R 
1 MOV (SP)+,R ::POP STACK INTO R 
1 MOV (SP)+,RO *:POP STACK INTO RO 
64 04 RTS PC “RETURN 
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Size CLOCK SUBROUTINE 


~SETTL SIZE CLOCK SUBROUTINE 


SIZCLK: 
ERRVEC,-(SP)_ ; PUSH ERRVEC ON STACK 

ERRVEC+2,-(SP) - PUSH H ERRVEC +2 ON STACK 

ve :SET uP FOR BUS TIMEOU 


oo 
ed od od eed 2) eed 


~~ 
FOS NAGA VGIAES 
—— —_ 
Sve Os 
= 
So. 
wd «ond 
Ww 
MOR 
~ 
48eses 
me 
~™ 
5 So. 
arm 
aw 
.- = 
oe 
Co 
Ss 
PP] 





sLOAD ADDRESSES FOR KW11-L 
s TEST FOR KWIil-L PRESENT 





4 

5 BR VES = KW1l-L IS PRESENT 

10 1$: CMP (sp) (SP)+ :RESTORE SP 

11 040710 MOV & rf rie “SET UP FOR BUS TIMEOUT 

le 1 172540 001 2 MOV oe 40 CLKADR ‘LOAD ADDRESSES FOR KW11-P CLOCK 

1 1 104 001524 MOV 

14 140614 TST ;TEST FOR kW11~P PRESENT 

15 BR “YES = KW11-P IS PRESENT 

16 2$: CMP ~~ (SP)+ ‘RESTORE SP 

if 000002 000004 - ADD #2,4(5P) ‘MOVE RETURN TO ERROR 
12637 900006 MOV (SP) + .ERRVEC#2 :POP STACK INTO ERRVEC+2 
12637 MOV (SP) +, ERRVEC POP STACK INTO ERRVEC 

19 07 RTS PC ‘RETURN TO USER 


LE LLL ALLL LAL LA - 
a a ee 


RRRREF 


km a dd ed dd wd 


eed went con aed ered cot ened md aad cod wed wh ooh 


NSSESS SESE 


GEEASS SKATES 
RRRRREKEZ KRRRRRR KERR KEK 


uh ee ont) woh mek coed ed ab ot 


172386 


500085 


140500 


000002 
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-SBTTL TIMEOUT SUBROUTINE 


THIS SUBROUTINE WAITS ¢ 
; GREATER THAN APPROX. 5 


; = CALL : JSR PC, TIMOUT 


RDY = 1 AND GO = 0 OR FOR A TIMEOUT 
MSEC AND THEN RETURNS. 














: 22? RETURN HERE 
TIMOUT: 
MOV RO,.-(SP) : PUSH H RO ON ON STACK 
MOV R2.-(SP) TACK 
MOV ERRVEC, -(SP) : PUSH ERRVEC ON STA 
MOV ERRVEC +2 ~( HERRVECS2 ON ON STACK 
MOV ERRVEC sSETUP FOR BUS TIMEOUT = 04 TRAP 
MOV aPREL ERRVEC+2 
MOV SBASE RO ;RO=BASE ADDRESS 
MOV #30. .R2 *R2=NUMBER OF CLOCK CYCLES 
1$ JSR PC, STIMER “START CLOCK TIMER 
2$: MOV RMCS1(RO),~(SP) GET STATUS 
BIC #*C<RDY !GO>, (SP) 
CMP #RDY, (SP)+ :RDY=1,G0=077 
BEQ 4$ : tf 
BIT WBIT7,@CLKADR :TIMER DONE?? 
BEQ 2$ “NO! ! 
DEC R2 *DEC NUMBER OF CYCLES 
BNE 1$ CONTINUE IF NOT — 
BR 4$ =" RDY D1 NOT SET ‘GO’ DID NOT RESET 
“WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 
3$: CMP (SP)+, (SP)+ ZADJUST_STACK 
ADD #4,12¢SP) VE SP TO USER'S CALL 
MOVB 4#7.@12(SP) “WRITE ERROR NUMBER 
SUB #2.12(SP) 
4$: 
MOV (SP) +, ERRVEC#2 “POP STACK INTO ERRVEC+2 
MOV +,ERRVEC  :;POP STACK INTO ERRVEC 
MOV (SP)+, 33POP STACK 
MOV (SP)+, “POP STAC 
RTS PC “RETURN TO USER 
THIS ROUTINE IS USED START THE KW11-L OR THE KW11-P CLOCK. THE CLOCK 
:15. STARTED TO IN FLAG MODE. A CLOCK WILL BE 16.66 OR A 60 HZ CPU 
STIMER: 
MOV RI -(SP) -PUSH RI ON STACK 
MOV LKADR 8} “RISCLO K ADDRESS 
CMP Rh 4172540 Kul iP CLOCK? 
BNE is’, NO! ! 
MOV *SET COUNTER 
1$: MOV faiferstT0, (nt) ; ‘START COUNTER 
MOV (SP)+,R “POP STACK INTO R1 
RTS ‘RETURN 
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-SBTTL PRIMARY ERROR CHECK SUBROUTINE 

THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VAL.:D AND 
;THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
sFOLLOWING CHECKS ARE MADE: 


: ORRECT UNIT IS SELEC CTED 
7(BITS 0-2) EQUAL THE UNIT BEING teSTED 


; .SELECTED UNIT IS AVAILABLE, I.€., DVA (BIT 11 OF RMCS1) IS SET 


at THE UNIT SELECT BITS OF RMCS2 


sAND NED (BIT 12 OF RMCS2) IS RESET; 


.LAST COMMAND WAS COMPLETED, !.E., THE MASSBU CONTROLLER 1S 
“READY (BIT 7 OF RMCS1) AND THE GO BIT 1S RESET (BIT 0 OF RMCS1) OR T 
;DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 

.NO PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS. 






HE 





i. E., MCPE = 0. 
eNO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 
S1.E., PAR = 0, OR, PAR = DPE = 1 


: THE SUBROUTINE ASSUMES THAT: 
.STATUS HAS BEEN STORED IN THE pREGISTER INPUT BUFFE 
SIN PARTICULAR, RMCS1 2_AND RMDS HAVE BEEN STORED IN THEIR 
‘CORRESPONDING LOCATIONS OF THE '‘GET'’ BUFFER. 
; . (SUNIT) CONTAINS THE DRIVE NUMBER 


:THE SUBROUTINE IS CALLED AS FOLLOWS: 






*(1) . JSR PC ,PRIERR 
: BR 233 RETURN HERE IF NO ERROR 
: RETURN HERE | TO RE 
: ERROR ERROR R DEF I 
; JSR PC,a(SP)+ GO BA 
; | See RETURN HERE if ww 
PRIERR: 
:CLEAR USER’S ERROR CALL 
ADD #4, (SP) sMOVE (SP) TO ERROR CALL 
(Sp) “CLEAR ERROR 





CLRB @ 
SUB #4, (SP) :MOVE (SP) TO NO ERROR RETURN 


sREPORT AN ERROR IF THE WRONG UNIT IS SELECTED 
RMCS2] , SBDDAT 


Pr EUNT TASK ,SBDDAT 
SUNIT,SGDDAT ; 
#*CUNTMSK,SGDDAT 
SchDAT 360 


sCORRECT UNIT SELECTED?? 
:GOOD DATA FOR TYPEOUT 


DAT ‘OR IVE Hi EXPECTED AND RECEIVED 
— S 





SP) 
PC ,a(SP)+ 


SEQ 0185 


ee ek eed ed weed ed eh ed eed eed eed eed SS 
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MARY ERROR CHECK SUBROUTINE 
28 1 162716 000010 SUB #10, (SP) sRESTORE (SP) 
59 041 $ NOP 
o9 } 37 041750 1 JMP 10$ sSKIP OTHER CHECKS 


REPORT AN ERROR IF 3 DEVICE IS NOT AVAILABLE OR IF 
; THE i IS ek 






















SES 
~~ 
cy 


sREPORT AN ERROR IF GO iS NOT ZERO AND DRY IS NOT ONE 
BIT j 260 RESET?? 


zY $3: 
000200 001350 aoe #DRY ,RADS! s DRIVE READY?? 









RMCS1I1,$GDDAT EXPECTED STATUS 
#SC!TR® !MCPE!GO,SGDDAT 
RACSIT SBDDAT " :RECEIVED STATUS 


#4, (SP 
#5 ,8(SP) 





BIC 
MOV 





sERROR #5 
;MOVE SP TO RETURN FOR ERROR 


BUYNEOSONSEMES SEEK WENDSS 
SSS 
aS 
So 
sss 
55 


weds ed cord cee ane ee orc ect em eed weed ced onc 


vod 
ale 
OONN 
r 
ee 
: S 
wd 
rs 


5 
65 041234 WA RACSII sDEVICE AVAILABLE?? 
66 041 42 YES! ! 
6 041 RCS SGDDAT EXPECTED STATUS 
68 04125 GDDAT 
9 041 mast ;SBDDAT :RECEIVED STATUS 
71 04% #2.a(SP) sERROR #2 
es #NED ,RMCS21 zWAS NED SET?? 
7% ba] 10 013737 RMCS21,$GDDAT :EXPECTED STATUS 
75 041 16 01 RMCS21.$BDDAT  :RECEIVED STATUS 
u: 1 04 91000 #NED SEDDAT 
1 112776 it 000000 #3,a(SP) :YES = CHANGE ERROR 
: 1 162716 000002 2$: ‘MOVE SP TO RETURN FOR ERROR 
1 736 a(SP)+ *REPORT DEVICE NOT AVAILABLE 
80 041 162716 000010 , (SP) sRESTORE (SP) 
1 04135 240 
041354 00057 10$ :SKIP OTHER CHECKS 
a 041356 3$: 
85 :REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY 
86 41 Sh 032737 000200 001336 er #RDY,RMCS11 ;CONTROLLER READY?? 
88 041 01 001336 001740 MOV RMCS11.$GDDAT ‘EXPECTED STATUS 
1374 05 032 000200 001140 BIS Y T 
90 041 737 160001 001140 BIC #SC TRE LACPE 160, SGDDAT 
91 a 1 037 001536 1142 nov RMCS11,$BDDAT :RECEIVED STATUS 
38 1 112776 900004 000000 mOVB #4.a(SP) ZERROR #4 
94 041 162716 2 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
95 041 736 JSR PC a(SP)+ ‘REPORT CONTROLLER NOT READY 
96 1 716 000010 SUB #10, (SP) *RESTORE (SP) 
97 041 240 NOP 
41 Fa BR 10$ :SKIP OTHER CHECKS 
5 
03 
1 6 SUB #2, (SP) 
1 736 JSR PC-a(SP)+ ‘REPORT DRIVE NOT READY 
13 #16, (SP) SRESTORE (SP) 
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ERROR CHECK SUBROUTINE | 
1536 000504 BR 10$ | 
On 1378 5$: | 
-REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD | 
“PARITY ON THE MASSBUS CONT | 
041540 0527 7 020000 001336 BIT #MCPE RMCS11 sPARITY ERROR ?? 
041880 oi 3 001336 00114 MOV SGDDAT  <:EXPECTED STATUS 
1556 7 160001 00114 BIC Mer ThE trroe 1GO.c0Da , 
041 13737 001 114 MOV I T RECEIVED STATUS 
15 71 ADD #4, (SPS ‘MOVE STACK TO USER'S ERROR 
1576 11277 13 000000 MOVB #15,a(SP) TERROR # 
1604 162716 2 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
1610 736 JSR PC pa(SP)+ SREPORT ERROR VIA USER 
1612 162716 000010 : SUB #10, ( sRESTORE STACK 
161 240 . NOP 
041 5 BR 10$ 
041 6$: 
:REPORT AN ERROR IF THE RMBO DETECTED A CONTROL BUS PARITY ERROR 
O41 2 32737 000010 001352 BIT #PAR RMER'I ;WAS THERE A PARITY ERROR?? 
041 737 000010 001400 BIT #DPE ,RMER2I SUAS. IT THE CONTROL BUS?? 
041 1045 BNE 11$ URE! ! 
164 05 737 000010 001426 #PAR,RMER10 DID. TEST SET PAR 2? 
16 1413 3NO! ! 
1652 010046 RO,-(SP) PUSH RO ON STACK 
041654 012 001555 MOV APUTINX,RO ‘RO PO POINTS TO INDEX TABLE 
126710 4 7$: CPB #RMER1, (RO) ‘SEARCH TABLE FOR RMER1 
1864 0 600 MOV (SP)+,RO -POP STACK INTO RO 
16 1 BR 11 “PAR WAS WAS SET BY TEST 
1672 1 720 8$: TSTB =: (RO) + ‘END OF TABLE?? 
1674 100371 BPL 7$ “NO! ! 
1676 01 . MOV (SP)+,RO “POP STACK INTO RO 
1 1 001352 001140 9S: MOV RMERIE.SGDDAT  2EXPECTED STATUS | 
1 7 19 001140 BIC § #PAR, SGDDAT 
1714 01 135 1142 MOV RMERII,SBDDAT  ;RECEIVED STATUS 
1 : 716 ADD i (SP5§ MOVE SP TO USER'S ERROR CALL 
1 112776 30 000000 MOVB 6 -9(SP) “WRITE THE ERROR NUMBER 
1 162716 SUB ‘MOVE SP TO RETURN FOR ERROR 
1740 736 JSR aca sREPORT THE ERROR 
17 1 zi6 000010 SUB AT (SP) ‘MOVE SP TO NO ERROR RETURN 
1750 $4 000010 10$: ADD #10, (SP) sRETURN TO ERROR 
17 4 11$: NOP -- SRETURN TO NO ERROR 
1756 RTS PC 


SEQ 0186 
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SECONDARY ERROR CHECK SUBROUTINE 


~SBTTL SECONDARY ERROR CHECK SUBROUTINE 








sNOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
s INPUT REGISTER BUFFER. 


SECERR: 







LEAR USER'S ERROR 





sSTORE FUNCTION CODE AND 
MOV 





NUMBER 
TORE FUNCTION CODE 


1 
3 :THE ERROR CHECK SUBROUTINE PROVIDES DETECT a SECONDARY ERROR 

4 ‘SUCH AS UNEXPECTED ERRORS AND UNEXPECT R CONTENTS. THESE 

5 ‘ERRORS ARE DE D SSARILY 

$ sASSOCIATED WITH T 

f : THE SUBROUTI T MOVE S THE ERROR 

9 *TO THE TEST ROUTINE WHICH MAKES n THe TEST ROUTINE 
10 : THEN LOOKS F 
i SUBROUT INE 
1 : 
14 “CALL: JSR PC, SECERR 
15 : BR 299 
16 ; NOP REPORT AN ERROR 
1 ; ERROR Y SUB 
1h ; JSR PC,a(SP)+ K TO § ERROR CHECKS 
8 : 22? RETURN HERE IF NO MORE ERRORS 

4 

é 

8 

















04 
1760 013737 001412 046120 RACS10,8 § 
1766 042737 177701 046120 BIC #°CCFOIFLIFOIF3!F4>,81$ 
1774 716 000004 ADD #4, (SP) sMOVE (SP) TO ERROR CALL 
04 105076 000000 c a(Sp) 
1 162716 Ty (SP) SMOVE (SP) TO NO ERROR RETURN 
:REPORT ERROR IF DRIVE IS NOT READY 1.€.. IF DRY = 0 
4 10 032737 000200 001350 BIT #DRY .RMDSI DRIVE E READY?? 
013737 001350 00114 RMDSI AT “BAD. "DATA FOR TYPEOUT 
6 04 7? 177577 00114 #*CORY AT 
1 037 001140 #DRY .SGDDAT :G00D DATA FOR TYPEOUT 
40 1 ae 10 000000 #0 a(SP) sERROR NUMBER 
41 54 162716 2 2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
42 Pte a(sp+ “REPORT NOT READY 
4 162716 000010 6. (SP sRESTORE (SP) TO ERROR N 
4b 24 
7 -REPORT ERROR IF GO BIT IS NOT RESET 
i 20 1035 000001 001336 7$: BIT oRACSII £60 BIT RESET?? 
1 1 1 001142 MOV RNC 11 SBDDAT :BAD DATA FOR TYPEOUT 
30 1 As 0018 001142 BIC 60, SBDDAT 
y 001140 CLR bat :GOOD DATA FOR TYPEOUT 
35 124 112776 11 000000 MOVB A a(SP) sERROR NUMBER 
132 162716 2 SUB “MOVE SP TO RETURN FOR ERROR 
5 0421 736 JSR ests. “REPORT DEVICE NOT AVAILABLE 
1 z16 000010 SUB wiOnts *RESTORE (SP) 
144 24 NOP 
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F I> 


1 ,SBDDAT 
S8DDAT 
DAT, SGDDAT 


#4, (SP) 
9 i. a(SP) 


£,a(SP)+ 





sREPORT ERROR IF FUNCTION cove READ FROM DEVICE IS NOT CORRECT 


a* 
1 


31S FUNCTION CODE CORRECT?? 
sEXPECTED FUNCTION CODE 
sVES!! 


sERROR NUMBER 
sMOVE SP TO RETURN FOR ERROR 
WR FUNC 


EPORT TION CODE 
SRESTORE (SP) 


3$: 
sREPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 



















SERRORS ARE SET 
[OTHER ERRORS AR 
CLR 
TST 
BNE 
} TST 
BEQ 
4$: BIS 
5$: MOV 
BIC 
CMP 
BEQ 
ADD 
MOVB 
SUB (SP) 
JSR Toetsp>” 
SUB 
:REPORT AN ERROR IF 
i TRE IS SET. OR 
“SET TRE IS SET 
me ov Reed (SP) 
BIC ar? 
BNE 
BIT fee. RMDS! 
BEQ 
CMP #SEARCH 818 
5S; RMCS11, SBDDAT 
#*CTRE . SBDDAT 
DAT, SBDDAT 
ath Sep) 
fe. SP) 
c,a(SP)+ 
9$: 


ort COMPOSITE ERROR IS NOT SET AND 


sEXPECT “ERR’’ = 0 
31S RMER = 07? 


NO! ! 
31S RMERZ = 02? 
ERR’ SOULD BE SET 


THs. "5RR” OK?? 
SMOVE SP TO USER'S ERROR 
;WRITE ERROR NUMBER 

sMOVE SP TO ERROR RETURN 
sREPORT INVALID COMP ERROR 







npNee IS SET AND NONE OF THE BITS WHICH SET 
IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 


:EXPECT “TRE = 0 

sWAS DLT, WCE, UPE, NED, NEM 
zP GE , AXP OR MDPE SET 

ZWAS EXCEPTION RECEIVED?? 
ZUAS * DATA TRANSFERRED ?? 


3"'TRE’’ SHOULD BE SET 
:BAD DATA FOR TYPEOUT 


Ho | TREY OK?? 
MOVE. sp TO USER*S ERROR CALL 
SMOVE SP TO RETURN FOR ERROR 


;REPORT TRE ERROR 
RESTORE (SP) 









SEQ 0187 
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CHECK SUBROUTINE 


s SAAAAARAAAAAAARARAATEAAAELERAEAAAERERAEEAAAAEEEREAEREERERREEREKEE 








USING THE FUNCTION C 





sNOTE THA 
;STATUS CONDITIONS 


B 
.G., WRI 
*WRITE LOCK IS ON AND THE C 


ODE TABLE 
; -STATUS BITS wor SET T 






SHOULD NOT SET. E.G. 
CONDITIONAL ON THE COMMAND 






HY ty THE FOLLOWING ERRORS: 
SET, E.G., ATA AND ILF 





AND 
0 1 toed ONLY BE SET IF 
is i WRIT 


:GET AND i me 4 FROM THE PUSH RO On CODE TABLE 


MOV 
MOV 
MOV (SP) + 


1$.R0 
Ra, 78% 


STACK 
a FUNCTION CODE 
‘STORE ENTRY 
° POP STACK. INTO RO 


AN_ERROR IF AN ULD BE SET, ATTENTION OCCURRED OR IF 





:REPORT 

*ATA IS NOT SET AND SHOULD 
MOV 78$,$GDDAT 

BIT #ERR,RMDSI 

BEQ 10$ 
BIS 

10$: BIC 
MOV 
BIC 
CMP 
BEQ 
ADD 








11$: 


sGET EXPECTED ATA STATUS 
COMPOSITE ERROR SET ?? 


:NO_! 
EXPECT AN_ATTENTION 
DONT CAR 


STRIP 
sGET RECEIVED ATA 
sSTRIP DONT CARES 





PORT ERROR IF DF Te, SECGRAECT.. I.E., IF ILF DOES NOT COMPARE 


sRE 
WITH FUNCTION C 





By feel span 
BIC RE TLE SBDDAT 
CMP -SBDDAT 
ae 
nove Re a(sP) 
JSR ribet ats) 
SUB 

12$: CLR 

:REPORT AN ERROR iE WCE Ets SET 
MOV 


rye 5 SSP) 
races SBDDAT 
+! gBDDAT 


SSP) 
(SP) 





SS 








sGET EXPECTED ILF 
sCLEAR ALL OTHER BITS 
sGET RECEIVED ILF 
sCLEAR ALL OTHER BITS 
21S a1 OK ?? 


sYES ! 
SP TO USERS ERROR CALL 
NUMBER IN CALL 









AND. SHOULD NOT T BE SET 





“MOVE SP TO ERROR RETURN 


WCE AND te 
OTHER 


SEQ 0186 
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K SUBROUTINE 


JSR PC a(sP)+ ;REPORT ERROR 
- SUB #10, (SP) SRESTORE ERROR 


REPORT ERROR IF Det srAtus IS of B 






MOV ; 
BIS hs Pot (SP) :SE 

MOV RMER1I.SBDDAT :GET RECEIVE 

BIC (SP)+, ,SBDDAT  :CLEAR OPI IF ENABLED 
ADD #4, (SP) : 

MOVB #164.a(SP) “WRITE ERROR 

SUB #2. (§P) ‘MOVE SP TO ERROR RETURN 
JSR cat SP)+ SREPORT ERR 

SUB AT, *RESTORE SP 


14$: 
sREPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC IS 
SET AND VV IS NOT RESET 
MOV 78$,- :GET IVC STATUS ENABLE 
BIT 31S VV SE 
BEQ 
15$: BIS 


RESTORE SP TO NO ERROR 





16$: 
sBIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
WRITE re tobe 








RACS2 = UPE. 
H OF THESE ERRORS IS ene ere? TO SEE IF AN ERROR IS SET WHEN THE 
I Te ERROR ENABLE BIT IS RESET. 


EAC 

;WR 

sREPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF 

sTHE DRIVE IS NOT WRITE PROTECTED 
MOV sASSUME WRITE ERRORS ENABLED 










aM ZARE | WRITE ERRORS ENABLED ?? 

ae sts THE DRIVE WRITE PROTECTED ?? 
17$: BIC RESET “we ENABLE 
18$: -MOV 7GET RECEIVED STATUS 

BIC ; CLEAR WLE IF ENABLED 

BEQ H MF WLE 

ADD MOVE SP_ TO USERS ERROR CALL 

ERROR NUMBER IN CALL 
S “MOVE SP_TO ERROR RETURN 


UB #2, 
JSR PC, a(SP)+ SREPORT ERROR AND RETURN 


SEG 0189 


I 15 
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SECONDARY ERROR CHECK SUBROUTINE 
043144 162716 000010 i SUB #10, (SP) sRESTORE SP TO NO ERROR 
1 
sREPORT ERROR IF WCF IS SET AND WRITE ERRORS ARE NO NOT ENABLED 
1 746 177777 MOV #-1,-(5P sASSUME WR ENABLED 
737 004000 046112 BIT #WLE,78$ ARE URITE. H ORS E ENABS ED ?? 
190 BNE 20$ YES !! 
1 BIC WCF. (SP) “DISABLE WCF ERROR 
1 z3 1352 001142 208: MOV RMERII,S$BDDAT GET RECEIVED STATUS 
7 00114 BIC SP)+,$BDDAT §§ :RESET WCF IF ENABLED 
412 BEOQ ‘BRANCH IF WCF OK 
716 ADD #4, (SP) ‘MOVE SP TO USERS ERNOR CALL 
77 000000 mOVB #25,a(SP) ‘WRITE ERROR NUMBER IN CALL 
162716 2 SUB ) ‘MOVE SP TO ERROR RETURN 
736 JSR PC 50(SP)+ “REPORT ERROR 
162716 000010 a SUB #10, ( sRESTORE SP TO NO ERROR 
:REPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
12746 177777 MOV #~1 (SP) sASSUME WRITE ERRORS ARE ENABLED 
737 004000 -046112 auLe.7 :ARE WRITE ERRORS ENABLED 7? 
16 000010 #DPE. (SP) ‘RES ET DPE ENABLE 
1 001400 001142 22$: RMEROI,SBDDAT :GET RECEIVED STATUS 
2637 00114 (SP) +, SBDDAT 3RES T pre IF ENABL ED 
716 000004 #4, (SP) :MOVE SP TO USERS ERROR CALL 
112776 000040 000000 #46,a(SP) ‘WRITE ERROR NUMBER IN CALL 
162716 000002 (SP “MOVE SP TO ERROR RETURN 
004736 PC a(SP)+ “REPORT ERROR 
162716 000010 om 6,¢ SRESTORE SP TO NO ERROR 










sREPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
MOV #-1,- ~($p) 

mal.? 

24 


: 















RON RODO-C RN 
RERRRERK RERERERERERRR REKRRRRKKEL 
3 SNL OS 
ete 
eas 
8 


1 24$: Race 5} SERDDAT 
| 2637 ; (SP) +, $BDDAT 
; 716 
50 12776 00024 000000 sia 
Ls 162716 2 SUB 
736 JSR sarees 
vs 4 62716 000010 siti SUB 6, (SP) 
7 DQ 
cia inane sREPORT AN ERROR IE IA IAE EIS SET | No 
% 7% 05 216 ate, BIS petiae( (SP) T ALL 
580 1 z3 001352 001142 MOV RMER11.$BDDAT T REC 
2 043412 OKI? BEG eS BRANCH OK 
BS 043414 062716 ADD 4 (SP) SMOVE SP TO USERS ERROR CALL 
z: 20 776 166 000000 MOVB W166 a(sP) “WRITE NUMBER 
162716 SUB g “MOVE S ERROR RETURN 





J 13 
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SECONDARY ERROR CHECK SUBROUTINE 

2 2 004736 JSR a(sp)+ :REPORT ERROR AND RETURN 

By esse 162716 000010 SUB AT (SP) :MOVE SP TO NO ERROR 

Pe 043440 26S: 


sB1T 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 


































1 ; ALL READ/WRITE ERRORS, I.E.. | 
‘ : RMAC TR 
: RMCS2 = DLT.NEM,MXF 
: RMDS = LBT | 
- RMER1 = AOE 
: LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
298 a ae CYLINDER REGISTER IS WRITTEN 
tem AOE CANNOT BE SET IF LBT IS NOT ALSO SET 
: TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE | 
05 REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
% 04 0127 177777 MOV #=1,- (sp) ERR ENABLED 
061008 001000 046112 mak? § ZARE Ef ERRORS ENABLED 7? 
0S 042716 1 #DLT. (SP) RESET DLT ENABLE 
10 19959 O0 oe 001142 278: RMCS21,$BDDAT : D 
11 637 001142 (SP)+,$BDDAT : ED 
12 1412 2 : OK 
1 74 716 000004 #4, (SP) : O USERS ERROR CALL 
14 043500 112776 000032 000000 432 a(SP) : NUMBER IN CALL 
15 162716 000002 #2, (SP) : ERROR RETURN 
16 51 736 PC.a(SP)+ sREPORT ERROR AND RETURN 
1 514 162716 000010 #10, (SP) *MOVE SP TO NO ERROR 
18 520 28$ 
sREPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
$21 5 1 746 177777 MOV #~-1,-(SP) 2 ASSUME D 
22 524 737 001000 046112 BIT } : | 
¥ 5 1002 BNE 29$ : 
594 0635 7 900 BIC ANEM ; 
35 1 1 001142 29%: MOV RMCSO : 
WY. 1142 BIC {Sp)+, : 
¥ 1412 BEQ : 
rs. 716 ADD yA SP) ; 
25 776 000167 000000 MOVB #167,a(SP) ; 
53 162716 2 SUB #2, (SP) ; 
31 3 736 JSR PC a(SP)+ ; 
74 162716 000010 ai SUB #16, (SP) “MOVE SP TO NO ERROR 
4 
535 sREPORT ERROR IF Pic IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
£7. 012746 177777 MOV a1~ (SP) ERRORS ARE ENABLED 
5: ¢ 2730 001 046112 BIT SARE DATA ERRORS ENABLED ?? 
: ¢ at 1900 BIC WMXF . (SP) DISABLE MXF ERROR 
' 137 1 E 001142 31$: MOV resol SBDDAT “GET 
} $37 114 BIC (SP) +, $BDDAT 


AK 12 
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HECK SUBROUTINE 
71 ADD #4, (SP) sMOVE SP TO 0 USERS ERROR CALL 
a 3 000000 MOVB #359 a(SP) WRITE ERR OR NUMBER IN CALL 1 
716 2 SUB ‘MOVE spt TO ERROR RETURN 
736 JSR PC ashe SREPORT ERROR AND RETURN 
62716 000010 a SUB 6,( :MOVE SP TO NO ERROR 
sREPORT ERROR IF AOE IS set AND DATA ERRORS ARE NOT ENABLED | 
01 746 177777 MOV #=-1,-(SP) sASSUME DATA ERRORS ARE ENABLED 
$73 001000 046112 BIT maoe.7 é :ARE |B DATA ERRORS EANBLED ?? 
7 002000 001350 BIT sie" ,RMDSI 18 Lt ALSO SET ?? 
é 001 338: BIC “DISABLE 
v3 1 001142 34$:  —_MOV AMER, SBDDAT “GET RECEIV 
042657 001142 BIC +, $BDDAT ;CLEAR AOE IF ENABLED 
716 000004 ADD (SP) “MOVE SP TO USERS ERROR CALL 
776 000020 000000 MOVB iia a(SP) “WRITE ERROR NUMBER 
716 000002 SUB ;MOVE SP_TO ERROR RETURN 
736 JSR Cats) “REPORT ERROR AND RETURN 
716 000010 SUB WiOnCs “MOVE SP TO NO ERROR 


35$: 

BIT O7 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
sHEADER ERRORS, 

RMER1 - HERE HCE, FER 





5 RMER2 - 

sRESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET 
2737 002000 001370 BIT #HCI ,RMOF I z1S HCI SET 2? 
2737 000200 046112 ies BIC #HCE .78$ SYES = DISABLE ALL HEADER ERRORS 





sREPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #=-1,-(SP) sASSUME ERRORS ENABLED 
+ ARE + ioe ERRORS ENABLED ?? 


YSNS 


— 
oon 
& 
™m 


1399 001142 37$: 


I= 





ot SD aed ed 
Retatsoe 
od 

NN 

sek Ln) ome 

ON 

: 

© 


r 





PORT 
“MOVE SP TO NO ERROR 
38$: 


;REPORT 





ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 
#-1 ,~(SP) sAS ERRORS E ED 
BIT ZARE ERRORS ENABLED ?? 


BNE 3Y 
BIC (SP) ‘Neeaaie HCE 
135 001142 39%: MOV 11,$BDDAT :GET RECEIVED STATUS 


(SP)+,$BDDAT | :CLEAR HCE IF ENABL 


177777 
000200 





aon 


WASous 
R 
Sg 
nN 


~N 
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m 


~~~ 


WN Mrmr 


SBLSRRERES § 
FEFEREREREREE EEREREE 


SRS 


eed eed eed ed ed eed ed esd od ed 


8 


ek ed ae ed ed ed ed ed ed 
WOONAUSWN—O 


NOUSWN = 


FEFEFESESEPES 
SRSKRS RONG 


—_ 


Fy et Det et et et et et at ete 202F_ De Be Be-ae-ae ae ae ee 
wi 


SEESELS 
333; 
SNSS 


a35 32 Cheese 


rote 
Or 
WASSax 


ad aed 
SAASSRARS 
N85 
Anon 


_ 
Oo 
nN 
od 
— 
o 


a 


737 
14 


4 7 
042737 


03873 


001000 
000200 


177777 
000200 


RROR CHECK SUBROUTINE 


046112 


001370 
001370 
046112 


046112 

















BEQ 
ADD r+ (SP) 
MOVB #308 a(SP) 
SUB (SP 
JSR PC 35h)6 
SUB #16, (SP) 
40$: 
:REPORT ERROR IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(SP p) sASSUME FER IS ENABLED 
BIT Hc ct? ZARE HEADER ERRORS ENABLED ?? 
BIC #FER, (SP) ‘DISABLE FER 
41$: MOV RMERII,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT § :RESET FER IF ENABLE 
BEQ *BRANCH IF FER OK 
ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
MOVB WS? a(sP) ‘WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE $P TO ERROR RETURN 
JSR PC a($P)+ SREPORT ERROR AND RETURN 
SUB #10,(S ‘MOVE SP TO NO ERROR 
42$: 
sREPORT ERROR IF BSE 1S SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #~1,-(SP) -ASSUME ERRORS ENABLED 
eIT mack. 788 GARE 1 THEY ENABLED ?? 
BIC #BSE, (SP) ‘DISABLE BSE 
43$: MOV RMER21,$BDDAT :GET RECEIVED STATUS 
BIC — ‘CLEAR BSE IF ENABLED 
BEQ 44S “BRANCH IF OK 
ADD :MOVE SP TO USERS ERROR CALL 
MOVB a3$4°0 BSP) ‘WRITE ERROR R 
SUB 2, (SP ‘MOVE SP TO ERROR RETURN 
JSR Pc a(SP)+ ‘REPORT ERROR AND RETURN 
SUB 6,(S “MOVE SP T 
44S: 
sHCE IS USED AS THE ENABLING BIT FOR DETECTING SSE, SO REESTABLISH ENTRY 
3FROM THE FUNCTION CODE TABLE, TO CHECK THE SSE "BIT 
MOV -(SP) RO ON S Pack 
MOV 81$.R °GET FUNCTION COD 
MOV FNCDTB(RO) 78S ‘STORE FUNCTION TABLE ENTRY 
MOV (SP)+,RO *:POP STACK INTO RO 
:IF SKIP SECTOR ERROR INHIBIT (SSEI) IS SET OR FORMAT 16 (FMT) IS CLEAR, 
“RESET THE ENABLING cyt tH CHCE) OTHERWISE LEAVE ENABLING BIT (HCE) SET. 
BIT FORMAT MODE ? 
BEQ is “BR IF YES | 
BIT #SSE1,RMOF I “IS SSEI SET ? 
BEQ :BR IF NO 
458: BIC #HCE ,78$ ‘DISABLE HEADER ERROR 


sREPORT — IF it. el AND HEADER ERROR IS NOT ENABLED 


sASSUME ERRORS ENABLED 


BIT mice, 78$ *1S HCE ENABLED ? 


SEG 0193 


M15 
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¢ 
457 BNE 47$ :YES !! 
438 BIC #SSE, (SP) :DISABLE SSE 
45 1 r3 001142 47$: MOV RMER2I,SBDDAT :GET RECIEVED STATUS 
460 7 00114 BIC (SP)+,$BDDAT  :CLEAR SSE IF NOT VALID FOR FUNCTION 
461 044 412 BEQ 4 *BRANCH IF SSE OK 
46¢ 71 ADD #4, (SP) MOVE SP TO USERS ERROR CALL 
77 3 000000 MOVB a(SP) ‘WRITE ERROR NUMBER 
464 162716 SUB #2, (SP) ‘MOVE SP TO ERROR RETURN 
465 736 JSR PC a(SP)+ sREPORT ERROR AND RETURN 
466 044406 162716 000010 SUB #10,(S “MOVE SP TO NO ERROR 
Pe 04441 48$: 
489 i817 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
4 “FIELD ERRORS, I.E. 
471 : RMCS2 ~ MDPE 
47¢ : RMER1 = DCK,ECH 
4 sNOTE: 
474 : ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
475 : DOCK IS SET. 







sREPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 
pik 044412 012746 177777 MOV #-1,-(SP) 












AS ENABLED 
16 032737 000100 046112 BIT #ECH,78$ - SARE DATA FIELD ERRORS ENABLED ?? 
044424 001002 BNE YES ! 
1 044426 042716 000400 BIC #MDPE , (SP) ‘ DISBALE MDPE 
4 01 737 001346 001142 49$: MOV RMCS21,$BDDAT :GET RECEIVED STATUS 
2637 001142 BIC (SP) +, SBDDAT 3CL MDPE IF ENABLED 
4 001412 BEQ 50$ H OK 
5 062716 000004 an #4, (SP) ‘MOVE SP TO USERS ERROR CALL 
4 52 112776 000027 000000 MUVB re. e0) ) ‘WRITE ERROR NUMBER IN CALL 
162716 000002 SUB #2, (SP ‘MOVE SP TO ERROR RETURN 
64 0047 JSR C.a(SP)+ ‘REPORT ERROR AND RETURN 
162716 000010 SUB W160" (SP) ‘MOVE SP TO NO ERROR 
490 0444 50$: 
496 . sREPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED 
49 72 01 3746 177777 MOV #-1,-(SP) 
49 476 2737 000100 046112 #ECH,78$ cARE 1 THEY ENABLED ?? 
4% 4 arg 100009 (SP) ‘OE SABLE DCK 
49 1 v3 001 001142 51$: 11,$BDDAT :GET RECEIVED STATUS 
2637 001142 )+,$BDDAT  :CLEAR DCK IF ENABLED 
4 001412 “BRANCH IF DCK IS 0K 
71 (SP) “MOVE SP TO USERS ERROR CALL 
4 77 000000 a(SP) ‘WRITE ERROR NUMBER IN CALL 
162716 2 ) ‘MOVE SP TO ERROR RETURN 
736 asp) “REPORT ERROR AND RETURN 
: 162716 000010 #10, (SP) “MOVE SP TO NO ERROR 
5 52$: 
:REPORT ERROR IF ECH IS SET AND. 
: DATA FIELD ERRORS ARE NOT ENABLED, OR 
: DCk i: ser Set | 
1 $52 1 746 177777 . MOV #1 .~ (SP) : ASSUME ENABLED 
ie 4596 737 000100 046112 BIT #ECH, 78$ SARE , ERRORS ENABLED ?? 
1 410 BEQ 5 :NO ! 


— > an alll, aie 


ammeter eee er ese ee 


NFAO 
ONDARY ERROR CHECK Tl 
213 4 ; 737 006000 001370 
218 57 100000 001352 
218 ; 1 
2] 1 13 001142 
1146 
521 4 1 12 
$95 ousgss T3776 900031 
5 112776 1 000000 
r 162716 2 
6271 000010 
326 Guies 
528 
5 
5 
3 1 
5 5 ELA 000030 046120 
1G as 
5 0001 04 
: 13737 001340 001142 
i6] 
379 76 2737 040000 001336 
1 1015 
Pak 716 000015 
71 1277 15 000000 
00503 1140 
5 724 «1 16 000002 
163716 000010 
240 
50 
; ras 9 7 sii 1140 
7 1416 1140 
7 7 1140 
760 7 1416 001140 
beé7re 001405 000010 001346 
776 001416 001140 
tt 001140 001342 
1342 001142 
§ 000000 
000010 


N15 
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3$: 
4$: 
SUB 
JSR PC pa(SP)+ 
SUB #16, ¢ 
55$: 


tt Pas SET ?? 
31S OGk ALSO SET ?? 





“MOVE SP TO NO ERROR 


J RAAEREEERERRERRAREEREREERAERAERARRERAERERKREREREAERREREEERERREERKEE 


: “PERFORM THE REMAINING ERROR CHECKS FOR DATA TRANSFER C 


J AARERARERERERERERERERAEEEEERRAEEEAEARARRAKRRRERREREREREERKEEKEKKEKEKRE 


CMP #SEARCH,81$ 
BLO 5 
JMP 75$ 


5 





BEQ 
BIT 


BNE 
ADD 









ATRE ,RACS11 
57$ 









#4, (SP) 
#15 a(sP) 
CLR DAT 
SUB #2, (SP) 
JSR PC-a(SP)+ 
SUB #10, (SP) 
NOP 
“REPORT ERROR IF RMBA 
57$: MOV RMWCI. 
RAC. SGDDAT 
RMBAO, SGDDAT 
#AI .RACS2I 
RMBAO, $GDDAT 
58$: T,RMBAI 


RBA SBDDAT 
Hs ie 


ae 
Won 





sR po ERROR IF RMWC NOT ZERO AND TRE IS ZERO 
MOV RMWCI . SBDDAT sWORD COUNT 


S NOT CORRECT 
AT ;GE 


sWAS DATA TRANSFERRED ? 
BR IF YES 
sNO - EXIT 


y ZERO?? 

; TRANSFER ERROR DETECTED?? 
sVES!! 

sERROR NUMBER 

:GOOD DATA FOR TYPEOUT 

3MOVE SP TO RETURN FOR ERROR 


T WORD COUNT NOT ZERO 
SRESTORE (SP) 


GET WORD 
:s TRACT STARTING WORD C 
SAD STARTING BUS ADDRESS 


MAS BUS ADDRESS INHIBIT (BAI) SET 22 


SADDRESS SHOULD NOT HAVE CHANGED 
zBUS | ADDRESS OK?? 

[BAD DATA FOR TYPEOUT 

SAOVE sp nO. RETURN FOR ERROR 


sREPORT UNEXPECTED ADDRESS 
RESTORE (SP) 







sCOMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 


COUNT AT END OF TRANSFER AND 
OUNT. 


SEQ 0195 


~n “Dz = 
HRM TONMMONDZ EC KAEKH TOMI 


WViw 
0 
ond 


VOW 


rs 


~ 
™ 


SESRG Race SECS SEES 


RR RRR RRRRRR KREKR KEKE 


AAGAAAO 
kk ek ed td ad od 
non 


UEWR OC OONOULS WIN =O 


MVlAMAWM WWMM WW 


Sexaes 


Bs Bee 


Win 


B 16 
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K SUBROUTINE 





we 
















5 59$: -(SP) :NUMBER OF SECTORS TRANSFERRED 
013746 001 340 RMWCI,-(SP) GET WORD COUNT AT END OF TRANSFER AND 
1414 RMWCO, (SP) : SUBTRACT STARTING WORD COUNT. 
MOV #256. .~-(SP) sASSUME 256. WORDS PER SECTOR 
32737 itt 001412 BT 1: iaiala HEADER DATA COMMAND ? 
38 000002 ADD #2, (SP) CHANGE TO 258. WORDS PER SECTOR 
000004 60S: INC 4(SP) s INCREMENT SECTOR COUNT 
2 SUB (SP) ,2(SP) SUBTRACT ONE SECTOR'S WORTH 
3 BGT 60$ ‘CONTINUE IF NOT DONE 
626 CMP (SP)+, (SP)+ sRESTORE STACK 
COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM 
*NUMBER OF SECTORS 
13737 001446 046112 MOV CO.78S STORE ORIGINAL CYLINDER 
13737 001420 046114 AO, ‘STORE ORIGINAL TRACK 
13737 001420 046116 RADAO. 80S STORE ORIGINAL SECTOR 
13737 001334 046122 LSTRK % TORE LAST TRACK. 
? 6122 $ ‘GET TRACK ADDRESS TO LO BYTE AND 
237 0461 82$ ‘INCREMENT TO GET TOTL # OF TRACKS. 
737 377 046114 #°CTADMSK,79$ ;SAVE TRACK ADDRESS BITS AND 
37 046114 7 *GET TRACK ADDRESS TO LO BYTE. 
177400 046116 #*CSADMSK,80$ SAVE SECTOR ADDRESS BITS 
637 046116 ADD (SP)+,80$ 
32737 001000 001444 BIT #SSEI ,RAOFO zWAS SSEI SET ? 
1411 BEQ 64 sNO !! 
023727 046116 000040 CMP 432. s SECTOR OVEFLOWED?? 
005237 114 s INCREMENT TRACK 
62737 0 046116 #32. ,80$ *ADJUST SECTOR 
237 7 046116 000037 61$: 431. ‘SECTOR OVERFLOWED ? 
114 62$: : INCREMENT TRACK | 
7 37 046116 #31. .808 sADJUST SECTOR 
766 61$ ‘TRY AGAIN | 
737 046114 046122 63$ 79$,82$ TRACK OVERFLOWED?? 
337 04611 rt * INCREMENT CYLINDER 
7 046122 046114 82$.,79$ ‘ADJUST TRACK 
766 é *TRY AGAI 





sREPORT ERROR IF ‘'SSEI’’ IS SET AFTER TRACK SWITCHING OCCURED 
; THRU ae 





7 00114 igen DA :SETUP EXPECTED SSEI = 0 
13737 00137 114 MOV RMOFI,SBDDAT § :GET RECIEVED DATA AND 
7 1% 114 BIC #*CSSEI,SBDDAT :SAVE SSEI BIT FOR COMPARE. 
737 001000 001444 BIT #SSEI,RMOFO sWAS SSEI SET BEFORE DATA TRANSFER ? 


420 BEQ 66$ 3NO 


- 
~< 


= 
> 
—) 
" 


AAA 
Ww -_ 
MIVA 


aha) 


SS SANs 
ehoetecs 


045370 
537 
640 
641 541 
6 54 
64 5424 
644 045426 
645 0454352 
646 
647 
648 045434 
649 045440 
650 0465446 
651 5450 
636 5456 
655 048460 
G54 Gc Sdee 
656 04550 
657 04551 
$38 5512 
65 5516 
660 045526 
661 55 
55 
5536 
e66, 45540 
oS Be 
55 
6 3209 
Gri B485 
7 He 
| 
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“ 
NN 


—~— 

—_ 
YYIE 
AAOW 





001421 
001142 


000225 
001140 


at 


000010 


001140 
046112 
002000 


i 


001140 
000004 
000017 
000002 


000010 


901140 


002000 
046112 
046114 
046116 


001345 






CHP RADAO+1 .RMDAL+1 :DID TRACK SWITCH OCCUR ? 
ist DAT 31S SSEI STILL SET ? 
ADD #4, (SP) “POINT TO ERROR 
MOVB ee ,a(SP) “DEFINE ERROR NUMBER 
BR é 
REPORT ERROR IF ‘‘SSEI’’ IS INCORRECT 
65$: MOV #SSEI SEDDAT :SETUP EXPECTED SSEI = 1 
: SGDDAT , SBDDAT 18 SSE! CORRECT ? 
#4, (SP) ‘POINT TO ERROR 
#206,a(SP) “DEFINE ERROR NUMBER 
678: » (SP) *ADJUST RETURN TO ERROR 
PC a(SP)+ sREPORT ERROR 
#10, (SP) *RESTORE (SP) 
*REPORT ERROR IF ‘‘LBT’’ IS NOT CORRECT 
68$: CLR SGDDAT :SET GOOD DATA FOR LBT = 0 
f 4560. ;SHOULD LBT BE SET?? 
#1AE.RMERII “WAS IAE SET 2? 
6 ‘YES = LBT SHOULD NOT BE SET 
#LBT .SGDDAT sSET GOOD DATA FOR LBT = 17 
69$: RMDSI SBDDAT sBAD DATA FOR TYPEOUT 
#°CLBT, SBDDAT 
DAT, SBDDAT 1S LBT CORRECT?? 
#4, (SP) he Pigs 
#17,a(SP) sERROR NUMBER 
. *MOVE SP TO RETURN FOR ERROR 
PC a(SP)+ sREPORT LBT IS WRONG 
#10, (SP) sRESTORE (SP 
“REPORT ERROR IF “‘AOE’’ IS INCORRECT 
70$: CLR $GDDAT :SET FOR AOE 


= 0 
BIT § #IAE,RMERI1 = WAS ““IAE'’ DETECTED?? 
BNE 7 :YES=""AOE"’ SHOULD BE Z 
#560. {SHOULD AOE BE $°7?? 


MAYBE 
YES 


7 


71$ 

at YES !! 

me.8is WAS THIS READ OR WRITE CHECK 2? 
MCI “WAS ALL DATA TRANSFERRED ?? 
rd) “YES | ; 





71$: #AOE , SGDDAT “SET FOR AOE = 1 
‘CLEAR EXPECTED TRACK 
80$ SEXPECT SECTOR = 1 
72$: RMER1I,$BDDAT :BAD DATA FOR TYPEOUT 
#*CAOE , SBDDAT 
SGDDAT.$BDDAT ;:IS AOE CORRECTY?? 


SEQ 0197 
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SECONDARY ERROR CHECK SUBROUTINE 
685 04 1413 BEQ 73$ sYES!! 
71 ADD #4, (SP) 
11277 9 000000 MOVB 430 a(SP) ZERROR NUMBER 
162716 SUB We, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PCa(SP)+ sREPORT AOE is WRONG 
690 162716 000010 SUB #16, (SP) sRESTORE (SP 
691 045706 0002 NOP 
638 “REPORT ERROR IF RMDA IS NOT CORRECT 
694 045710 052737 002000 001352 73$: BIT #IAE ,RMER1I :WAS THERE AN IAE ERROR 7? 
695 04571 “YES = DONT CHECK RMDA,RMDC 
6% 0% 13 114 001140 79$,$GDDAT ‘SETUP EXPECTED DISK ADDRESS 
697 045 7 140 SGDDAT | 
6 5 113737 116 00114 80$,$GDDAT 
5740 013737 001344 0011 RMDAI SBDDAT :SETUP RECEIVED DISK ADDRESS 

00 045746 02 7 001140 001142 | SDDAT. DDAT :COMPARE EXPECTED & RECEIVED 
701 0457 1413 74$ “BRANCH IF EQUAL « 
708 5 716 (SP) 
70 3 112776 1 000000 .a(SP) :ERROR NUMBER 
704 162716 2 SP) “MOVE SP TO RETURN FOR ERROR 
705 045774 004736 a(SP)+ *REPORT BAD DISK ADDRESS 
706 5776 162716 000010 10, (SP) “RESTORE (SP). 
706 2 000240 


“REPORT ERROR IF RMDC IS INCORRECT 
: MOV 78$ AT 










710 13 046112 001140 74$ :SETUP EXPECTED CYLINDER 
711 7 17 1140 Ic #*C1777,$GDDAT 
ole 13737. 001372 00114 AT  ;SETUP RECEIVED CYLINDER 
71 7 001140 001142 SCOMPARE CYLINDERS 
at 1413 : H IF EQUAL 
16 112776 000022 000000 :ERROR NUMBER 
71 162716 000002 ; “MOVE SP TO RETURN FOR ERROR 
718 736 PC a(SP)+. “REPORT BAD CYLINDER 
9 162716 000010 #10, (SP) sRESTORE (SP) 
! 46 240 
4 716 000004 75$: ADD #4, (SP) :MOVE (SP) TO ERROR CALL 
3 3776 000000 | Tse ($P) “WAS ERROR FOUND?? 
5 a 000004 | ADD #4, (SP) :MOVE (SP) TO ERROR RETURN 
; 162716 000004 768: SUB #4, (SP) :MOVE (SP) TO NO ERROR RETURN 
77$: ~—=—«RTS PC | 
.WORD 0 : CYLINDER 
.WORD 0 : TRACK 
“WORD “SECTOR 
“WORD sFUNCTION CODE 
WORD “TOTAL # OF TRACKS = LAST TRACK +1 





et LL A I I 


a 
z 


om 


meds 
™ 
= 


SES 
ROWS 


S 


55 
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HECK SUBROUTINE 


.SBTTL COMPOSITE ERROR CHECK SUBROUTINE 


sTHIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 
SRMER2 AFTER poate in EACH REGISTER WORD WITH THE USER'S STATUS 
;MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 

; THE MASKS ARE APPLIED. 


























CALL: 
7(1) «JSR PC, CMPERRSTS 
; . WORD 
; “WORD 
; BR 22? RETURN HE 
: NOP RETURN HERE TO REPORT AN ERROR 
; ERROR , ERROR NUMBER DEFINED BY SUB 
; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
: 22? RETURN HERE IF NO MORE ERRORS 
:NOTE: | RITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
CMPERRSTS: 
j sMASK AND STORE THE CONTENTS OF RMER1 AND RMER2 
013737 001352 001176 MOV 1 STORE RMER1. AT TEMP STORAGE 
7637 001176 a(SP) ) .STHPI “MASK R1 
716 2 ‘MOVE SP TO NEXT MASK 
013737 001400 001200 wees ) sTmp2 “STORE RMER2 AT TEMP STORAGE 
047637 001200 a(SP) 1g npD : RMER2 





:CLEAR USER'S ERROR fae : 
716 000006 ADD :MOVE SP TO USER'S ERROR CALL 
atsey =CLEAR ERROR NUMBER 


62716 000004 | SUB #4. (SP) sLEAVE SP AT NO ERROR RETURN 


Wins DONA UP ODOM AOR UO SOR OO RU OCR US URI LOOONOURWN— “ 


= 
Sas a3 SSRMSReSSSe 
setts 


sSEE IF Ls WERE Ray ERRORS IN pg 


TMP1 
ghno *to® REPORT ?? 
4 contre ort 





1$: 
sSEE IF ae a ERRORS TO yy! IN RMER2 (STMP2) 














5737 001200 ¥ ERRORS IN RMER2? 
1420 BEQ : 
73? 1200 001142 MOV STMP2,.$BDDAT  ;RECEIVED STATUS FOR TYPEOUT 
7 00114 CLR AT “EXPECTED STATUS FOR TYPEOUT 
1 ADD (SP) MOVE SP TO USER'S ERROR CALL 
112776 7 000000 MOVB Agr asp) ‘WRITE ERROR NUMBER IN USER'S CALL 
716 2 SUB “MOVE SP TO RETURN FOR ERROR 


F 16 
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COMPOSITE ERROR CHECK SUBROUTINE | 
58 046300 004736 JSR «PC, a@(SP)+ REPORT ERROR VIA USER | 
59 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR RETURN | 
Bae a 3 


FEARS 


sAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
ADD 4, (SP) S_ ERROR CALL 


10 71 #4, (SP :MOVE SP TO USER 
65 14 $78 900000 Ise 9(SP) :WAS THERE AN ERROR CALLED?? | 
86 716 000004 ADD #4, (SP) “YES = MOVE SP TO ERROR RETURN 
1 4 000004 33: SUB #4, (SP) ;MOVE SP TO NO ERROR RETURN 
i 
__} 


SOS 


2 4$: RTS PC sRETURN TO USER 
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DEVICE SELECT SUBROUTINE 


~SBTTL DEVICE SELECT SUBROUTINE 
: as SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 






4 T QUEUE. 
$ CALL: 

:(1) JSR PC DEVSEL 
2 (9) BR 23 RETURN IF NO ERROR 
9 (3) NOP RETURN IF ERROR 
10 7(4) ERROR ERROR DEFINED BY SUBROUTINE 
: 046336 DEVSEL: 
14 :CLEAR USER'S ERROR CALL 
15 062 000004 ADD #4, (SP sMOVE SP TO USER'S ERROR 
16 105076 900000 C (§p 
162716 SUB #4, (SP) “MOVE SP 
ig ;SAVE USER'S INFORMATION AND SETUP REGISTERS 
20 ; 900004 MOV VEC, 5(3P ) 3sPUSH ERRVEC ON STACK 

- PUSH ERR VEC#2 ON STACK 
:zPUSH RO ON STACK 


*:PUSH R1 ON STACK 
‘SETUP FOR BUS TIMEOUT 





ooooooco 
eee’ ceed ced) ee ee eed eed ed 
~ -—O~~ 
Ssuusres 
S 
“i 


UNIBUS ADDRESS 
zR1 POINTS TO DEVICE NUMBER 







>SELECT RIFY THAT DEVICE IS A 


VERRAVD 
S HIE HE Roe Ee 











| 
CLEAR at _ BYTE OF CALL 


AILABLE 
111160 000010 (RO): WRITE UNIT SELECT BITS 
01 001176 STH! GE GET DVA STATUS 
01 000010 001174 (RO) °STMPO :GET ‘NED D TATUS 
32737 010000 001174 #NeD, STRPO : DEVICE NONEXISTENT ? 
766 000004 000010 10(SP) *MOVE SP TO USERS ERROR CALL 
, 1 776 000111 000010 #111,a10(SP) § :WRITE ERROR NUMBER 
at 004000 001176 1S: /STMP1 :18 DEVICE AVAILABLE ? 
10 ) SMOVE SP TO USERS ERROR CALL 
3 tat 10 ,@10(SP) WRITE ERROR NUMBER 





is 





LE BUS TIMEOUT 
jot i 


as. 10isP paiaise> 
#2, 10¢ 










MOVE SP TO USERS ERROR CALL 
WRITE BUS TIMEOUT ERROR NUMBER 
ADJUST RETURN TO NOP PRECEDING 





MESELEGRESLE 
z 
Sas 
S58 
Sse 


3$: 
ME ERROR CALL 
jRESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 
é 12601 ; MOV (SP)+,R1 ::POP STACK INTO R1 
5 1 MOV (SP)+;RO 33POP STACK INTO RO 
5 1 000006 MOV (SP) +, ERRVEC+2 :;POP STACK INTO ERRVEC+2 


W 16 


aaa V04.00 28-JAN-82 16:49:32 PAGE 27-1 
? 000004 MOV (SP) + ,ERRVEC 
7 RTS PC 


:POP 
EXIT 


STACK INTO ERRVEC 


SEQ 0202 


I 16 
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SFSe STATUS CHECK SUBROUTI 







































1 .SBTTL SEEK STATUS CHECK SUBROUTINE 
: sTHIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
4 “STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 
$ <THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
R “AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE UERROR 
3 [OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS 
11 SCALL: 
12 7(1). «JSR PC, SEKSTS 
1 : BR 223 RETURN HERE IF NO ERROR 
14 : NOP RETURN HERE TO REPORT AN ERROR 
15 : ERROR ERROR NUMBER DEFINED BY SUB 
16 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
i ; 22? RETURN HERE IF NO MORE ERRORS 
19 046550 SEKSTS: 
21 sCLEAR USERS’ ERROR CALL 
02 046550 000240 
23 046552 062 16 000004 ADD #4, (SP) sMOVE (SP) TO ERROR CALL 
4 046556 105076 000000 CLRB 32s (SP) “CLEAR ERROR NUMBER 
046 162716 000004 SUB #4, (SP) ‘MOVE (SP) TO NO ERROR RETURN 
046566 005037 050026 CLR 208 *CLEAR ERROR FLAGS 
8 TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING 
“LOCAL REGISTERS 3 E. PAR = 1 AND ‘DPE’ = 0 
; 046572 052737 000010 001352 iT #PARRMER' WAS PARITY ERROR DETECTED? 
Gcs602 O3e 7 000010 001400 BIT pea “WAS IT DUE TO CONTROL BUS?? 
1 1020 BNE 1§ “NOT SURE! ! 
5 :REPORT REGISTER PARITY ERROR VIA USER'S E 
046612 5037 001140 CLR T sEXPECTED STATUS 
16 013737 001352 001142 RMER11,$SBD0DAT :RECEIVED STATUS 
6 716 (SPS *MOVE STACK TO USER'S ERROR 
112776 0 000000 . 6.a(sP) SERROR #5 
40 162716 2 #2, (SP) “MOVE SP TO RETURN FOR ERROR 
41 736 pC a(sP)+ 
4 162716 000010 #10, (SP) sRESTORE STACK 
43 50 7 3$ sJAE SHOULD BE ZERO 
45 DETERMINE THE VALUE OF “‘IAE’’ STATUS BASED ON TRACK SECTOR, CYLINDER | 
46 ‘AND THE § TATUS “OF ‘SSEI'’ BIT DURING A SEEK OPERATION. ALSO, SET "’SKI 
4 “IF CYLINDER ADDRESS IS TOO LARGE 
48 52 012737 2000 1140 i$: MOV #IAE .SGDDAT 1 
4 52737 30026 1 
20 ; 7 001446 001 RMDCO,# T CYLINDER ? 
1 4 101 j S INVALID 
3 76 042 040000 050026 ¥SK1,20$ FLA 
046704 1 123737 001421 001335 sei tout sGREATER THAN LAST TRACK ? 
5 2 101026 3$ *YES = TRACK IS INVALID 
046714 123727 001420 000035 RMDAO, #29. sSECTOR > 29. ? 
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SEEK STATUS CHECK SUBROUTINE 
58 2 2s :BR IF NO 
20 3 ee Sueene a ae eTOR IS INVALID FOR 18 BIT MODE 
61 0467 001420 000036 RMDAO, #30. * SECTOR ip. ? 
a 2$ :BR IF NO 
63 046744 001006 001444 #SSE1.RMOFO 15 SSE1 CLEAR 2 scedain salen ts al Sie 
65 O4e5 001420 000037 RMDAO, #31. “SECTOR > Wr ? 
66 046762 3$ sYES = SECTOR IS INVALID 
046764 aa 001140 2$: CLR SGDDAT :""IAE’’ SHOULD = 0 
“COMPARE EXPECTED AND RECIEVED “‘IAE’’ STATUS 
770 013737 001352 001142 3$: MOV RMER11,$BDDAT ;:1S IAE 0K?? 
776 042737 «175 00114 BIC #°CIAE,SBDDAT SAVE IAE BIT FOR COMPARE 
02 7 001140 001142 CMP SGDDAT.$BDDAT :CORRECT “IAE’’ STATUS ? 
047012 1004 BNE 4 “BR IF 
047014 042737 040000 050026 BIC #SK1,20$ “CLEAR SKI FLAG 
047022 000413 rm BR S$ :G0 CHECK NEXT ERROR 
sREPORT INCORRECT "‘IAE’’ STATUS VIA USER'S ERROR CALL 
0467024 716 000004 ADD #4. (SP) 
112776 000051 000000 rete) sERROR 51 
7036 162716 000002 : SUB “MOVE SP TO RETURN FOR ERROR 
7042 004736 JSR .a(SP)+ “REPORT INCOR 
7044 162716 000010 SUB wiOnts RES TORE. (SP) 
7050 00024 NOP 
7052 5$ 


sREPORT ANY IVC ERROR 






ERRONEOUS IVC E 
BIT 


. 
x 
3 


BELESRESLSSELSETLAVLSISISARANASSS 
FRELEK 






—_—o 1 





AS 
IVC ERROR WITH VOLUME VALID Z 
- VOLUME V 


04 
4 

71 

71 737 000100 001350 

7114 001403 

7116 112776 1 000000 

7124 162716 2 6$ 
18 BRFSS bee 
ee oes fires OOOO potas 7S: #°CSKI SBDDAT 
1 7154 iS737 05 091140 N€_ SGDDAT 
1 7162 2737 039088 1140 #°CSK1,$GDDAT 
71 1417 8$ 
11 sREPORT ERROR IF SKI 1S NOT SET 
Hi ae ie 040000 001142 eIT #SK1,$BDDAT 
11 16 ADD #4. (SP) 
114 112776 tay 000000 MOVB #267,a(SP) 





sERROR 61 IF VV = 1 

:MOVE SP TO RETURN FOR ERROR 
;REPORT ERROR VIA USER 
sRESTORE SP 

sRECEIVED STATUS 

sCLEAR DONT 


CARES 
sGET EXPECTED SKI STATUS | 
CLEAR DONT CARES 
sBRANCH IF 0 EXPECTED 


(IAE WAS NOT DETECTED) 
ey: SKI DETECTED ?? 


“MOVE SP TO USERS ERROR CALL 
“WRITE ERROR NUMBER 


SEQ 0204 


ee = 


K 16 
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SEEK STATUS CHECK SUBROUTINE 

115 047214 162716 000002 SUB #2,( :MOVE SP TO ERROR RETURN 

116 047 736 JSR PC + ee) 4 SREPORT ERROR AND RETURN 

117 716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR 

118 047226 o654 BR 1 :GO TO NEXT ERROR CHECK 

1D 04 8$: 

121 sREPORT ERROR IF SKI IS SET 

1 ¢ 0 30 052737 040000 001142 BIT #SK1,$BDDAT :1S SKI SET ?? 

1 1 Q 9$ ; KI 1S 

124 047240 6 

125 66 77 

1 6 52 1 716 2 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 

127 04 JSR PC ,0(SP)¢ sREPORT SEEK 

128 04 162716 000010 SUB #10, ( sRESTORE (SP) 

} 04 24 NOP 

1 *REPORT ANY DEVICE CHECK 

032737 000200 001400 9s: BT #DvCRAERZI zMAS THERE DVC DURING SEEK?? 


sEXPECTED STATUS 


MSW 


SGDDAT 
Sera c eOOAT sRECEIVED STATUS 









413 BE 7NO - 
71 ADD #4. (SP) “MOVE (SP) TO ERROR 
090034 000000 MOVB #54,a(SP) SLOAD ERROR NUMBER 








7 
ves 4 001420 
134 047276 00 037 001140 CLR 
135 04 13737 001142 
136 04731 71 ADD 4.(S 
137 047314 112776 5 000000 moves #55.a(SP) sERROR #55 
138 047322 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
139 04 736 JSR PC-a(SP)+ “REPORT ERROR VIA USER 
140 047 16271 000010 sus #10, (SP) sRESTORE SP 
14 
128 :REPORT ANY ‘‘OPI'’ ERROR AS OPI WITH MOL = 0, OR OPI 
14% BECAUSE ON CYLINDER LATCH DIDN'T RESET 
145 052737 020000 001352 10S: aT 1, RMERII 3 oP * ERROR?? 
129 3087 001140 CLR sEXPECTED STATUS 
148 13737 001352 001142 MOV sRECEIVED STATUS 
14 716 000004 ADD “MOVE (SP) TO ERROR 
150 11 076 52 000000 MOVB “LOAD ERROR NUMBER 
151 737 (01 001350 BIT ‘WAS MEDIUM ON LINE?? 
13¢ 7 1405 BEQ NO! ! 
1 7 é, 53 000000 MOVB “YES = ftance ERROR NUMBER 
1 7410 1 r16 2 11$: SUB “MOVE SP TO RETURN FOR ERROR 
1 7414 JSR REPORT T ‘OPI’ ERROR 
rot 16271 000010 sup *RESTORE (SP) 
1 
136 iste IF “PIP’’ = 0, AND “‘ATA’’, “MOL'’ AND ‘VV = 1 
1 7424 013746 00135 12$: MoV RMDSI,-(SP) 
1 74 716 04767 BIC A-C<ATA!PIP!MOL!WV>, (SP) 
1 74 726 110100 CMP #ATA! MOL! VV, (SP) + 
1 74 1 é | BNE 1 sERROR IN RMDS 
164 746 137 047776 : JMP 173 *RMDS IS OK 
1 gREPORT ERROR IF MOL = 0 AND OPI = 0 
167 047 7 010000 001350 BIT #MOL .RMDSI 1S MOL RESET?? 
1 7% “NO = MOL IS SET 
1 7% 020000 001352 BIT #OP1 ,RMER1I “WAS OPI SET 
1 464 024 BNE 14$ “YES = DONT REPORT ERROR 
171 0474 001350 001140 MOV RMDSI.$GDDAT § :EXPECTED STATUS 








fre 
m2» 


NERRERS 


SSSSLFEFRASLSSELSAR AVES JarooARan 
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1 75 7 
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1 ef 162716 
is Srey Seer 
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1 7 G01034 
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SUBROUT INE 


NFAO RM8O FCTNL PT3 
K STATUS CHECK 

172 047474 05 
17 7 13737 
17 751 ? 
176 047523 169716 
1 7 736 
1 7 ee 
} 7 24 
1 

1 

1 

1 

1 
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01350 00114 


BIS 


MOV sRECEIVED STATUS 
ADD #4, (SP) 








MOVB ’ 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ sREPORT ERROR VIA USER 
SUB #16, (SP) 
NOP 
gREPORT AN ERROR IF “PiP’* IS STIL SET AND SKI NOT SET 
14$: BIT 44 P.RMDSI 31S “PIP’ STILL SET?? 
#SK1,RMER2I “WAS "'SKI''SET?? 
:YES=DONT REPORT PIP 
sEXPECTED STATUS 
sRECEIVED STATUS 
*MOVE (SP) TO ERROR 


: R 

MOVE SP TO RETURN FOR ERROR 

sREPORT “PIP*’ SET AFTER SEEK 
sRESTORE (SP) 





“REPORT AN ERROR IF ‘ATA’ IS NOT SET 
15$: BIT #ATA,RADS1 SWAS ATA’ SET 2? 















MOV 1,$GDDAT :EXPECTED STATUS 
BIS 'DPR! DRY, $GDDAT 
MOV sRECEIVED STATUS 
ADD : (SP) TO ERROR 
MOVB #57,a(SP) ‘LOAD ERROR NUMBER 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ :REPORT ATTENTION NOT SET DURING 
SUB #10, (SP) *RESTORE (SP) 
NOP 
;REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 
16$: BIT »RMDSI :1S W = 0 2? 
BNE 1 :NO!! 
BIT #1VC RMER2I *IS IVC ALSO 0 ?? 
BNE 1 =NO = IVC I 





§ SET 
*EXPECTED STATUS 
sRECEIVED STATUS 


sERROR #64 
:MOVE SP TO RETURN FOR ERROR 





17$: 
sMODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
ADD = #4, (SP) sMOVE (SP) TO ERROR CALL 


SEQ 0206 


Wn— 


q 


5 050084 


050026 


a= 


e 
11 


TSTB 3=-_ a SP) 
BEQ 18$ 

ADD #4. (SP) 
BR 19 

SUB #4, (SP) 
RTS PC 
.WORD 0 





ee 


SEQ 0207 


WAS ERROR CALLED?? 
MOVE TO ERROR RETURN 


sMOVE (SP) TO NO ERROR RETURN 
RETURN 


sERROR FLAGS 





a 


c 4 
CZRNFAO RM8&O FCTNL PTS rime V04.00 28-JAN-82 15:49:32 PAGE 29 
CONTROLLER CLEAR SUBROUTINE 
1 -SBITL CONTROLLER CLEAR SUBROUTINE 


THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 
;AND DRIVES, THEN SELECTS THE DRIVE. 


CALL: JSR PC,CNTCLR 
BR re? 






RETURN HERE IF NO ERROR FOUND 
NOP RETURN HERE IF ANY ERROR FOUND 
ERROR SUB DEFINES ERROR NUMBER 


27? 


~ port 8 + 3PUSH RO ON STACK 


SP) R1 ON STACK 
ERAVER = (SP) PUSH ERRVEC ON STACK 
ERRVEC+2,-(SP) PUSH H ERRVEC 2 ON STACK 

RRVEC : SETUP FoR BUS TIMEOU 


#4 
aPRE ERRVEC+2 
S$BASE RO RO = UNIBUS ADDRESS 
ACLR.RMCS2(RO) :CLEAR MASSBUS 

; “GET DEVICE UNDER TEST 
{R1) ,RACS2(RO) “SELECT DEVICE 







UA 33 
ssuereee 
ob bohoboh hohe 

VODOONNARAO 


MSW OOONAULWw 


1 
1 
1 
1 
1 
1 
1 
: 





i 
501 6 (SP) +, (SP)+ sADJUST STACK 
501 #4,10(SP) :MOVE SP TO USER'S ERROR CALL 
501 12776 #7,410(SP) ;WRITE THE ERR 
; } 162766 #2,10(SP) :ADJUST SP TO RETURN TO ERROR 
501 1 637 (SP; +, Eeevetee sPOP STACK INTO ERRVEC+2 
501 12637 (SP)+, ERRVEC : sPOP sTAtK INTO ERRVEC 
; 18 12601 (SP)+,R1 ::POP STACK INTO R1 
14 1 — (SP)+,R0 : POP STACK INTO RO 
50144 07 PC 
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CONTROLLER CLEAR STATUS CHECK SUBROUTI 































EPOR VIA 
#10,(S ‘MOVE SP BACK TO NO ERROR 


NOP 
-REPORT ERROR IF RMCS2 NOT INITIALIZED 
0 13737 001346 001142 3$: MOV RMCS21,$BDDAT  ; VERIFY RMCS2 
Fi 1014 MOV R1 S¢e5) “PUSH R1 ON STACK 
| 


1 .SBTTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 
§ : THIS SUBROUTINE | VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
4 ° N THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
5 : OLLOWING A CONTROLLER CLEAR OPERATION WRITING A 1 IN BIT 
: *5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED "ON THAT CONDITION. 
i ;STATUS PERTINENT TO THE DEVICE 1S NOT CHECKED. IN PARTICULAR, THE 
a “FOLLOWING STATUS BITS ARE NOT CHECKED: 
1 ; ATA, ERR,PIP.MOL,WRL.LBT.PGM, VV.OM.UNS,SKI.DVC 
i§ ° 
14 CALL: 
15 *(1) JSR PC, CLRSTS 
16 : BR 223 RETURN HERE IF NO ERROR 
1 : NOP RETURN HERE TO REPORT AN ERROR 
18 : ERROR OR NUMBER DEFINED BY SUB 
19 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
; 22? RETURN HERE IF NO MORE ERRORS 
é 050146 CLRSTS: 
4 :CLEAR USER'S ERROR CALL 
5 05014 962716 000004 ADD #4, (SP) sMOVE SP TO ERROR 
50152 105076 000000 CLRB  a(SP) “CLEAR ERROR NUMBER 
50156 162716 000004 SUB #4, (SP) ‘MOVE SP BACK TO NO ERROR 
. “REPORT ERROR IF RMCS1 NOT INITIALIZED 
5 162 13737 001336 001142 1$:. MOV RMCS11,$BDDAT  ;VERIFY RMCS1 
501 737 «(1 001142 #SC,$BDDAT SIGNORE SPECIAL CONDITION 
1 050176 012737 004 001140 #DVA'RDY SGDDAT EXPECT DVA & RDY 
3737 001140 001142 SEDDAT. ,SBDDAT so: COMPARE EXPECTED, RECEIVED 
716 “MOVE SP TO USER'S ERROR CALL 
112776 4 tt 000000 sWITE ERROR NUMBER IN CALL 
4 16 000002 ; SP T ETURN FOR ERROR 
162716 000010 *MOVE SP BACK TO NO ERROR 
- 086240 REPORT ERROR IF RMBA NOT RESET 
2 5024 $037 001140 5$: CLR T ;VERIFY RMBA IS ZERO 
4g 13737 001342 001142 RMBAI , SBDDAT 
4 1413 3s BRANCH IF ZERO 
4 716 fee ‘MOVE SP TO USER'S ERROR CALL 
4 & 127 000000 a3 ga(SP) *WITE ERROR NUMBER IN CALL 
46 716 2 3MOV TO RETURN FOR ERROR 
‘, 4 ce Stop) T ERROR USER 


: “EXPECT IR & UNIT NUMBER 
TSTQUE ,R1 *R1 = ADDRESS OF TEST QUE 
(R 1), (SP) 

#IR, (SP) 

(SPS 4 +, $GDDAT 





ee ne 





re eee a ee. 7 
—- rr a 


E 
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CONTROLLER CLEAR STATUS CHECK SUBROUT! 

























D 
RMEC21,$BDDAT  :VERIFY RMEC2=0 










ooooocoooa 
BLARRARAA RAR 
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#4, (SP) :MOVE SP TO USER'S ERROR CALL 
#135,a(SP) *WITE ERROR NUMBER IN CALL 
4 » (SP) “MOVE SP TO RETURN FOR ERROR 
C,a(SP)+ “REPORT ERROR VIA USER 
000010 AT et ~  SMOVE SP BACK TO NO ERROR 


NOP 
sREPORT ERROR IF RMAR2 NOT INITIALIZED-IGNORE ROQA,ROB 
MOV RMMR2 











ay 001376 O01 7S: RAR I SBDDAT SVERIFY RMMR2 
7 011 114 #TST!1777, $GDDAT :EXPECT TEST BIT ON 
: 7 001140 Ere: ak »SBDDAT 


sMOVE SP TO USER'S ERROR CALL 
#1860 ESP) “WITE ERROR NUMBER IN CALL 
“MOVE SP TO RETURN FOR ERROR 
PC a(sP)+ “REPORT ERROR VIA USER 
#10,(S *MOVE SP BACK TO NO ERROR 


NOP 

ERROR IF RMER2 NOT RESET~IGNORE SKI ,DvC 
CLR GDDAT XPECT ALL ZEROS 
MOV RMERZ1,SBDDAT :VERIFY RMER 










_ 
a 
a 

SOanw 
S 
S 


| 
| 
3 12601 ::POP STACK INTO R1 
7 001140 001142 CMP Seopa SBDDAT : COMPARE EXPECTED & RECEIVED 
25 1413 4 ‘BRANCH IF | 
61 716 #4, (SP) “MOVE SP TO USER’S ERROR CALL 
23 52 112776 136 000000 #130, a(SP) “WITE E NUMBER IN CALL 
4 162716 2 #2, (SP) : SP TO RETURN FOR ERROR | 
64 736 PC a(SP)+ “REPORT ERROR VIA USER. 
65 16274 000010 #10,(S :MOVE SP BACK TO NO ERROR 
66 50 24 NOP 
6 “REPORT ERROR IF RMER1 NOT RESET-IGNORE UNS 
68 050374 005037 001140 4$: CLR SGDDAT ‘VERIFY RMER1 
9 13737 001352 001142 RMER11,$BDDAT 
0 737 040000 001142 #UNS , SBDDAT s IGNORE UNSAF 
71 1 413 ‘BRANCH IF ZERO 
e 5041 716 000004 #4, (SP) “MOVE SP TO USER'S ERROR CALL 
5 112776 000131 000000 MOVB #131.a(SP) :WITE ERROR NUMBER 
7% 162716 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
75 736 JSR PC a(SP)+ “REPORT ERROR VIA USER 
26 3 162716 000010 sup #10,(S ‘MOVE SP BACK TO NO ERROR 
08 SREPORT ERROR IF RMMR1 NOT INITIALIZED~IGNORE WC,LS,LST 
050444 01 737 001362 001142 5s: MOV RAARII:SBDDAT 
80 30452 7 6 001142 BIC #UC'LS'LST,SBDDAT sIGNORE WORD CLOCK, SCT, TRK 
1 05 Of 03 10 001140 MOV sEXPECT WRITE DATA BIT 
30466 737 001140 001142 CMP SGDDAT,S$BDDAT :COMPARE EXPECTED AND RECEIVED 
50474 001413 BEQ &3 sBRANCH IF 
8 3 7 716 ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 
5 050502 112776 000133 000000 #133,a(SP)  SWITE ERROR NUMBER IN CALL 
31 162716 2 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR | 
? 14 736 JSR PC-a(SP)+ *REPORT ERROR VIA USER 
316 162716 000010 SUB #10, (SP) ‘MOVE SP BACK TO NO ERROR 
52 240 NOP 
sREPORT AN ERROR IF RMEC2 IS NOT RESET 
31 : CLR AT sEXPECT ZEROS 
9 
94 
: 


= 


sREPORT 
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CZRNF 
CONT 
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i 
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18 Sra 
18 Sabre 
1 7 
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ome ah 
eed 
»S) 


é 


Setsks ~y 
OF=0207J3f— 
SEVSASNSES 


040200 


001142 


$s: 


10S: 


eral mad 


BIC 
BEQ 





BIC 


#SKI!DVC ,SBDDAT ; 







(SP)+ 


‘2 
AT (SP) 





(SP) 
ii 


C-a(SP)+ 
wont (SP) 


#4, (SP) 


a(SP) 
11$ 

#4, (SP) 
#4, (SP) 
PC 





NOP 
“REPORT ERROR IF RMDS NOT INITIALIZED 
MOV RMDS1, $BDDAT 

#*C<DRY !DPR> SBD 
ADPR! DRY SGDBAT ; 
SGDDAT, SEDDAT 


OO 





s IGNORE DEVICE E 

BRANCH IF OTHER BITS 0 

sMOVE SP TO USER’S ERROR CALL 
sWITE ERROR ALL 
sMOVE SP TO RET FOR ERROR 


ER 
;MOVE SP BACK TO NO ERROR 


od DRIVE STATUS REGISTER 


sEXPECTED DRIVE STATUS 
SCOMPARE EXPECTED & RECEIVED 


;BRANCH IF 
:MOVE SP TO USER'S ERROR CALL 
ERROR NUMBER 


WRIT 
3MOVE SP_ TO RETURN FOR ERROR 
TO USER 


EPORT ERROR 
“MOVE SP BACK TO NO ERROR 


sMOVE SP TO ERROR CALL 
sWAS AN ERROE DETECTED?? 


[YES = MOVE TO ERROR RETURN 
:MOVE SP TO NO ERROR RETURN 









ee 


SEQ 0211 
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-SBTTL PACK ACKNOWLEDGE STATUS CHECK 


:THIS et 3 CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
“REPORTED TO THE USER VIA THE USER'S ERROR CALL. 





















CALL: 
7(1) «JSR PC ACKSTS 
: BR 239 RETURN HERE IF NO ERROR 
: RETURN HERE TO REPORT AN ERROR 
; ERROR ERROR NUMBER DEFINED BY SUB 
: JSR PC,a(SP)+ G0 BACK TO SUB FOR MORE ERROR CHECKS 
; 22? RETURN HERE IF NO MORE ERRORS 
ACKSTS: 
:CLEAR USER'S ERROR CALL 
ADD #4, (SP) :MOVE SP TO ERROR CALL 
CLRB = a(S) “CLEAR LOW ORDER BYTE 
SUB #4, (SP) _ SMOVE SP BACK 
:REPORT AN ERROR IF “‘Vv'' IS 0 
BIT #VV.RMDSI 1S VOLUME VALID SET?? 
MOV RMDSI,$GDDAT  :EXPECTED STATUS 
BIS SGDDAT | 
MOV S1,$8DDAT  ;RECEIVED STATUS 
ADD #4, (SP) “MOVE SP TO ERROR CALL 
MOVB re.( a(SP) ‘WRITE NUMBER IN ERROR CALL 
SUB » (SP SMOVE SP TO RETURN FOR ERROR 
JSR C,a(SP)+ ‘REPORT THE ERROR 
SUB AT mt ‘MOVE SP BACK TO BRANCH 
NOP 
1$: 
:REPORT AN ERROR IF ‘MOL’ IS 0 
BIT #MOL .RMDSI 1S MOL SET?? 
MOV RMDSI.$SGDDAT  :EXPECTED STATUS 
BIS #MOL . $GDDAT 
MOV RMDSI,$BDDAT § ;RECEIVED STATUS 
ADD #4.(SP) ‘MOVE SP TO ERROR CALL 
MOvVB #41,a(SP) “WRITE NUMBER OF ERROR IN CALL 
SUB : “MOVE SP TO RETURN FOR ERROR 
JSR PC-a(SP)+ “REPORT TH ERROR 
SUB #16, (SP) “MOVE SP TO BRANCH 
NOP 
23: 
:SEE IF OR “ILF’’ IS SET 


— *‘OPI’*, "mR **TLR’’ 
BIT #UNS!OPI‘RARIILR!ILF -RAERTT 


sREPORT AN_ERROR IF “'UNS"’ IS SET 
Ht #UNS ,RMER1I 


MOV RMER11 , SBDDAT 


;WAS UNS SET?? 
*RECEIVED STATUS 


eerie 


SEQ 0212 


: 


—— 


— EE 


H 
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7 001352 001140 MOV RMER1I1.$GDDAT :EXPECTED STATUS 
33 3 30 13535 020000 o51140 #UNS .SGDDAT 
1244 716 #4, (SP) :MOVE SP TO ERROR CALL 
1250 112776 900042 000000 #42 ,a(SP) ‘WRITE NUMBER OF ERROR IN CALL 
é3 1 162716 :MOVE SP TO RETURN FOR E 
63 051 736 PC-a(SP)+ ‘REPORT THE ERROR VIA USER 
64 051 162716 000010 #10,(SP) . :MOVE SP TO NO ERROR RETURN 
65 051 9 2 
66 127 3$: 
sREPORT ANY OPI ERROR 
51 7 7 020000 001352 BIT #OP1 ,RMER1I :WAS OPI SET 2? 
0 051 424 BEQ 4$ “NO! ! 
71 051 7 00135 001142 MOV RMER11,$BDDAT :RECEIVED STATUS 
te 51 7 001352 001140 MOV RMER11.$GDDAT EXPECTED STATUS 
1 16 7 001140 BIC 1, $GDDAT 
74 051 716 ADD #4, (SP) - sMOVE SP TO ERROR CALL 
if 1 112776 3 000000 MOVB #45,a(SP) ‘WRITE NUMBER OF ERROR IN CALL 
i: 1 162716 2 SUB #2. ) “MOVE SP TO RETURN FOR ERROR 
1 736 JSR C,@(SP)+ “REPORT THE ERROR VIA USER 
A: 1 162716 000010 SUB Wb Cs “MOVE SP TO NO ERROR RETURN 
1 20 240 
rs 1352 4$: 
4 :REPORT ANY RMR ERROR 
51 5 2737 000004 001352 BT #RMR -RMER I sWAS RMR SET?? 
5 34 13737 001352 001142 MOV RMER1I1,$BDDAT :RECEIVED STATUS 
1 13737 001352 001140 MOV RMERII.$GDDAT :EXPECTED STATUS 
1376 737 001140 BIC ARMR AT 
1404 716 | ADD #4, (SP) sMOVE SP TO ERROR CALL 
1410 112776 44 000000 MOVB #44,a(SP) 
1416 162716 2 SUB #2, (SP) 
91 0514 736 JSR PCa(SP)+ “REPORT T 
9 16 £16 000010 SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 
ry 14 S$: 
96 :REPORT ANY ILR ERROR 
143 737 000002 001352 BIT #ILR,RMERII sWAS ILR SET?? 
144 424 BEQ *NO!! 
14 737 135 114 RMER1I.$BDDAT :RECEIVED STATUS 
4 1 g 1 1140 ‘EXPECTED STATUS 
4 ® sMOVE SP TO ERROR CALL 
470 5 000000 “WRITE NUMBER OF ERROR IN CALL 
7 2 “MOVE SP TO RETURN FOR ERROR 
1 ‘REPORT THE ERROR VIA USER 
4 000010 “MOVE SP TO NO ERROR RETURN 
1 3 6$: 
11 :REPORT ANY ILF ERROR 
HF He ae 000001 001352 BIT aiLF. SRMER11 :MAS ILF SET?? 
113 0517 1352 00114 MOV RMER1I1.$BDDAT :RECEIVED STATUS 
114 0515 13737 oo se5 00174 MOV RMER11.$GDDAT :EXPECTED STATUS 


a 


> Eee” rere 


—— o_o —E 


;% 
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115 051536 737 1 001140 #ILF .SGDDAT 
116 1 716 #4. (SP) :MOVE SP TO ERROR CALL 

117 051 000000 #46,a(SP) :WRITE NUMBER OF ERROR IN CALL 
118 1 716 ® “MOVE SP TO RETURN FOR ERROR 
119 051 PCa(SP)+ *REPGRT THE ERROR VIA USER 
120 051 716 000010 #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
121 051 9 24 

1 § 157 | 7$: 

4 

124 sAUGMENT RETURN ADDRESS IF ERROR WAS FOUND 

ig asta Mare pouas a imi sf 2 toe 

1 § i 408 BEQ Bh =NO!! 

4 000004 ADD #4. (SP) ‘YES = MOVE TO ERROR RETURN 

1 161 716 000004 8$: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 

1 i 161 4 9$: NOP 

1 162 07 RTS PC 





a 





J 


CZRNFAO RM8O FCTNL PT3 MACRO on FE a 28-JAN-82 16:49:32 PAGE 32 


RECALIBRATE STATUS CHECK SUBROUTI 


lk ee ed ad ed ed ed ed 
NOUS WN © VONOULS WN OOSNOULWwR— 


PPL LEE 


SEG ONO 
SOOoooooooeeoeaao 


900000 


000004 


022011 


001352 


-SBTTL RECALIGRATE STATUS CHECK SUBROUTINE 


THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIGRATE OPERATION 
[USING THE STATUS STORED IN THE GET BUFFER. 


: CALL: 

7(1) JSR PC,RCLSTS 

: BR Fee 

: NOP 

: ERROR 

; JSR PC, a(SP)+ 

° 9977 

RCLSTS: 

:CLEAR USER'S ERROR NUMBER 
ADD #4, (SP) 
CLRB = a(SP) 
SUB #4, (SP) 


;SEE IF ‘PAR’ OR ““ILF*’ OR 
BIT 


*OPI'’ OR 


“CALL SUBROUTINE 
RETURN HERE RROR 
RETURN HERE TO REPORT AN ERROR 


EF SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


sCLEAR USER'S ERROR CALL 
sMOVE SP BACK TO BRANCH 


"“IAE’’ IS SET 


#OPL PAR! LF! TAE AMER 


;sNONE ARE SET = GO TO NEXT CHECK 


:REPORT « i MASSBUS — BUS PARITY ERROR, I.E... 


= PAR’ = AND ‘DPE‘' 












ar #PAR,RMER1I 
BIT #DPE ,RMER2I 
BNE & 
Moy RMER11,$GDDAT 
MOV RMERI TI SBDDAT 
ADD 4.(SP5 : 
MOVB ws 
SUB 5 
JSR PC a(SP)+ 
SUB #10, (SP) 
NOP 
1$: 
sREPORT ANY “ILF*’ ERROR 
BIT #ILF RMERII 
RMER1 I SGDDAT 
#ILF AT 
RMERII SBDDAT 
SP 
mit asp) 
PC a(SP)+ 
#10, (SP) 
2$: 


us *PAR'’ SET?? 

WAS “DPE T?? 
er x REGISTER ERROR 

EXPECTED STATUS 


Pm ih STATUS 
TO a ERROR CALL 


oP WRITE ‘NUMBER_IN CALL 
sMOVE SP TO RETURN FOR ERROR 
760 REPORT 

sMOVE SP BACK TO BRANCH 


WAS “'ILF" SET?? 

‘EXPECTED STATUS 

:RECEIVED STATUS 

‘MOVE SP TO USER'S ERROR CALL 
“WRITE E NUMBER IN CALL 


U 
“MOVE SP BACK TO BRANCH 


SEQ 0215 


| a A A A — ee eee 
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— 


ww 
sooo 


oO 
_ 


BNAARANISSRISTLATLS 





~ 


37 002000 001352 


SNES 
_ 
CoOoNnNNNS 


a, ee Be) 
PER 
OOonw 

S 

So 


SRR 


™ 


RMU 

eee eed eed ced eed etd ceed ed eed eed ed od 
Ww —_ 

Orne rnjys 
=eS2es5 


050200 001400 


737 010000 001400 

; % O04 

114 

13737 1142 
4 

| ONS wi 


3 000000 
000010 
24 





;REPORT 


3$: 


4$: 


5$: 
sSEE IF 


7$: 


ANY “‘OPI** ERROR A 






Ss 
- OPI DUE TO “MOL** = 0 
OPI BECAUSE ON CYLINDER LATCH DIDN'T RESET 
2 WAS OPI SET?? 















gir #OP1 RMER1I 
MOV RMER11.$GDDAT 
BIC #OP1.$GDDAT 
MOV RMER11, SBDDAT 
ADD #4. (SP 

#72 ,a(SP) 
BIT #MOL .RMDSI 
BEOQ 
MOVB #73,a<SP) 
SUB 
JSR PC a(SP)+ 
SUB #10, ¢ 
NOP 

:REPORT AN ERROR IF “‘IAE'' IS SET 

BIT #IAE RMER1I 
BEQ & 
MOV RMER11,$GDDAT 
BIC #IAE, SGDDAT 
MOV 11,$BDDAT 


Pp 
JSR PC a(SP)+ 
SUB #10,(S 

NOP 


**SKI*’ OR **"IVC°° OR 


ANY *‘IVC’’ geo aag 
OUS IVC ERROR 
#IVC ,RMER2I 


RMER21, $GDDAT 
#IVC, SGDDAT 
RMER21, SBDDAT 
#4 Wen eps 
#74 ,a(SP) 
#VVRMDSI 


6$ 
#75 ,a(SP) 


PC a(SP)+ 
SUB #10, (SP) 








‘EXPECTED STATUS 
RECEIVED STATUS 


: SP_TO USER'S ERROR CALL 
suas ERROR oo IN USER'S CALL 


NO = CHANGE ERROR NUMBER 

;MOVE SP_TO RETURN FOR ERROR 
sREPORT ERROR VIA _USER 

;MOVE SP BACK TO BRANCH 


31S “'IAE"* SET?? 
“EXPECTED STATUS 
:RECEIVED STATUS 
;MOVE SP TO E CALL 

E ERROR NUMBER IN USER'S CALL 
sMOVE SP TO RETURN FOR ERROR 


T 
:MOVE SP BACK TO NO ERROR RETURN 


"DvC’’ IS SET 
BIT OR SKI! ‘IVC Ciove oRMER2I 
BEQ 9$ 


sNONE OF THE BITS ARE SET 


sWAS IVC SET?? 
‘EXPECTED STATUS 


sRECEIVED STATUS 
SP_TO USER'S ERROR CALL 
oy o% neeen IN CALL 


E ERROR NUMBER 
“MOVE SP TO RETURN FOR ERROR 
SREPORT ERROR VIA USER 
;MOVE SP BACK TO BRANCH 


SEQ 0216 
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TATUS CHECK SUBROUTINE 

sREPORT ANY “‘SKI** ERROR 
61T #SKI ,RMER2ZI 


sWAS SKI SET?? 
ZEXPECTED STATUS 
:RECEIVED STATUS 
[MOV 





eWRITE 
;MOVE SP_TO RETURN FOR ERROR 












RN a _ 


E SP TO USER'S ERROR CALL 
ERROR 


PC a(SP)+ “REPORT ERROR VIA USER 
#10,(S “MOVE SP TO BRANCH 
8$: 
:REPORT ANY ‘‘DVC’’ ERROR 
BIT #DVC RMER2I sWAS “DVC'* SET2? 
MOV RMER21,$GDDAT :EXPECTED STATUS 
BIC #DVC.SGDDAT 
MOV RMER21,$BDDAT  :RECEIVED STATUS 
ADD 4, (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB 4#77,a(SP) “WRITE ERROR 
SUB 2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ “REPORT ERROR VIA USER 
SUB #10, (SP “MOVE SP TO USER'S BRANCH 
9$: 
;SEE IF "PIP" AND "OM" ARE 0, AND "ATA’,"MOL'’ AND "VV" ARE 1 
MOV S1,-(SP T RMDS ON STACK 
BIC #CcPIP!MOL !VV!OM!ATA>, (SP) 
CMP HATA! MOL! VV, (SP) + 
BNE 10$ 
JMP 15$ 
10$: 
sREPORT AN ERROR IF MOL = 0 AND OPI = 0, I.E., MEDIUM WENT OFF 
“LINE AFTER RE BRATE WAS INITIATED 
BIT | :D1D MOL DROP? 
SUAS. “OPI ERROR REPORTED?2 
BNE “YES = DON'T REPORT MOL=0 
m0 *EXPECTED STATUS 
M0 op “RECEIVED STATUS 
TO USER'S ERROR CALL 
MOVB ae ERROR R 
SUB #2. 3; E SP TO RETURN FOR ERROR 
JSR PC pa(SP)* “REPORT ERROR VIA USEK 
SUB #10, (SP) “MOVE SP BACK TO USER'S BRANCH 
118: 
sREPORT AN ERROR IF “Vv'' = 0 AND “‘IVC’' = 0 
BIT #VV.RMDSI :D1D ‘~vVy"" DROP?? 
BIT #IVC,.RMERZI es THERE A IVC ERROR?? 


OL 


SEQ 0217 


—~— eee ee 
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12$: 


:REPORT AN ERROR IF ATA IS NOT SET 
BIT #ATA,RMDS1 
MOV RMDSI.$GDDAT 
BIS HATA, $GDDAT 
MOV S1,$BDDA 
ADD #4, (SP) 
mMovB #102,a(SP) 
SUB 2, (SP) 
JSR PC.a(SP)+ 
SUB 6,(SP 
NOP 

13$: 

sREPORT AN ERROR 

*ALWAYS CLEAR OFFSET MODE 
BIT #0M,RMDSI 
BEQ 
MOV 
BIC 
MOV 
ADD 
MOVB 
SUB a 2 
JSR PC.a(SP)+ 
SUB #10, (SP) 
NOP 

14$: 








sYES = DONT REPORT Vv=0 
sEXPECTED STATUS 
sRECEIVED STATUS 


sMOVE SP TO USER'S ERROR CALL 
sWRITE ERROR NUMBER I 
sMOVE SP TO RETURN FOR ERROR 


sMOVE SP BACK TO USER'S BRANCH 


sEXPECTED STATUS 
sRECEIVED STATUS 
MOV 


: SP_TO USER'S ERROR CALL 
sWRITE ERROR NUMBER IN CALL 


sMOVE SP TO USER’S BRANCH 


IF ‘‘OM"’ IS NOT ZERO BECAUSE RECALIBRATE SHOULD 


sWas om” RESET?? 
*EXPECTED STATUS 


sRECEIVED STATUS 

sMOVE SP TO USER'S ERROR CALL 
sWRITE ERROR 

sMOVE SP TO RETURN FOR ERROR 
sREPORT ERROR VIA USEF 


sREPORT - ERROR IF ‘PIP’ IS STIL ON, I.E.. DRIVE NOT ON 


> CYLINDE 
IT 





SPIP,RMDSI 
BEQ 

BIT #SK1 RMER2I 
BNE 1 : 
MOV RMDSI .SGDDAT 
‘BIC #PIP, $GDDAT 
MOV RMDSI 

ADD #4. (SP) 
mOvB #104.a 

SUB 2, (SP) 

JSR PC-a(SP)+ 


#10, (SP) 





1S DRIVE OFF CYLINDER? 
ZWAS "'SKI"* DETECTED?? 
:YES-DONT REPORT "PIP" 
SEXPECTED STATUS 


sRECEIVED STATUS 


SP TO fg ERROR CALL 


sWRIT 
sMOVE SP TO RETURN FOR ERROR 


sMOVE SP SACK TO USER'S BRANCH 


sWAS ATA SET DURING RECALIBRATE?? 


_--oo---- ore rr 
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. i 15$: 
:SEE IF a @ S SET 
001352 a. LR! RAR! UNS ,.RMERTI 






sWAS ILR SET DURING RECALIBRATE?? 





1140 sEXPECTED STATUS 
001142 sRECEIVED STATUS 
O USER'S ERROR CALL 
000000 :WRITE ERROR NUMBER IN CALL 
#2. “MOVE SP TO RETURN FOR ERROR 
PCa(SP)+ 
#10, (SP) :MOVE SP TO USER'S BRANCH 





16$: 


sREPORT AN ERROR IF "'RMR’’ IS SET 
BIT —_——— WAS RMR SET?? 


$ sNO!! 
RMER11 el sEXPECTED STATUS 















RMERII,SBDDAT  ;:RECEIVED STATUS 
5 :MOVE SP TO USER'S ERROR CALL 
#106, a(SP) | N USER'S CALL 
#2. (SP) ERROR 
PC a(sP)+ VIA _USER 
#10, (SP <MOVE SP TO USER'S BRANCH 
17$: 
sREPORT AN ERROR IF “UNS' IS SET AND 'DVC"’ 1S 0, 
BI »RMERII WAS UNSAFE ON 
C.RMER21 “WAS THERE A DEVICE CHECK?? 
‘YES = DON'T R é 
1,$GDDAT :EXPECTED STATUS 


RMER1 
#UNS . SGDDAT 
RMERII,SBDDAT sf 





#6 {SP MavE SP TO Moser S ERROR CALL 
#107,a(SP) “WRITE ERROR NUMBER 

#2, (SP “MOVE SP TO RETURN FOR ERROR 
pC a(SP)+ “REPORT VIA 

g _— “MOVE SP BACK TO USER'S BRANCH 










, rr Ree PA > 






RETURN ADDRESS IF ANY ERROR WAS 
#4, (SP) :MOVE SP TO USER'S ER RROR CALL 
WAS AN ERROR REPORTED?? 
(SP) “YES - AUGMENT SP RETURN 


‘Jj 
, » 
7.3 
>» 
it 

- 


i 


(SP) ;NO ERROR - RETURN SP TO BRANCH 


TS  -——e= 


SEQ 0219 


ee ee 


= 





B 2 
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589 b333ee 900307 _ RTS PC STATUS CECK IS COMPLETE 
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-SBTTL DRIVE CLEAR STATUS CHECK SUBROUTINE 






; BR 22? RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN E 
; ERROR ERROR NUMBER DEFINED BY SUB 
; JSR PC.a(SP)+ 60 BACK TO SUB FOR MORE ERROR CHECKS 
; 277 RETURN HERE IF NO MORE ERRORS 
DRVSTS: 
sCLEAR USER'S ERROR CALL 

ADD #4, (SP) :MOVE SP TO ERROR CALL 

CLRB = a(SP) “CLEAR ERROR CALL 

SUB #4, (SP) “MOVE SP TO USER'S BRANCH 
-REPORT ERROR IF RMCS1 NOT INITIALIZED 
i$: MOV 11,$BDDAT  :CHECK 


cS $1 
BIC #“C<DVA!FNCMSK>, CLEAR DONT CARES 
MOV #DVA! DRVCLR ,SGDDAT sEXPECT DVA 


CAP SGDDAT , SBDDAT COMPARE EXPECTED @ RECEIVED 

ADD #4, (SP) ‘MOVE SP TO ERROR CALL 

MOVB #141,a(SP) : NUMBER OF ERROR IN CALL 

SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
PC a(SP)+ sREPORT THE ERROR VIA USER 
#10, (SP) ‘MOVE SP TO NO ERROR RETURN 







NOP 
REPORT — IF RMDS NOT INITIALIZED 


2$ CHECK RMDS 
OM'VV!PIP,SBDDAT :CLEAR DONT CARES 
#MOL ' DPR! DRY, SGDDAT ‘EXPECT DRY & DPR 
f : COMPARE EXPECTED @ RECEIVED 


















#4, (SP) > MOVE 
2,a(SP) “WR RO 
, (SP) :MOVE SP TO RETURN FOR ERR 
PC-a(SP)+ : 
‘Se #16, (SP) :MOVE SP TO NO ERROR RETURN 
“REPORT ERROR IF RMER1 NOT INITIALIZED 
3$: CLR DAT sEXPECT 0°S 
RMERII,SBDDAT : ne 
yA (sp) ‘MOVE SP TO.ERROR CALL 
Move #143,a(SP) NUMBER OF ERROR IN CALL 
SUB #2, (SP) P TO RETURN FOR E 
JSR PC_a(SP)+ “REPORT THE ERROR VIA USER 
SUB #16, (SP) ‘MOVE SP TO NO ERROR RETURN 
“REPORT ERROR IF ATA NOT INITIALIZED 
4$: MOV RMASI.SBDDAT | ;:CHECK ATTENTION BIT 
R1,-(SP) 33 R1 ON STACK 
R2,-(SP) ::PUSH R2 ON STACK 
TSTQUE ,R1 
1(R1) .R2 
#*CATNMSK,R2 





R2,$BDDAT 





oe ee 


SEQ 0221 


PE ——~ 


Hee 
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dD 2 





SS 


SEQ 0222 


— 







































58 5 01 2 MOV (SP)+,R2 z:POP STACK INTO R2 
59 05 1 MOV (SP)+-_R1 ::POP STACK INTO R1 
60 05 7 001142 TST SBDDAT [1S ATTENTION CLEARED?? 
61 3 46 1413 BEQ :BRANCH IF ATTENTION CLEARED 
62 716 900004 ADD #4. (SP) “MOVE SP TO ERROR CAI: 
57654 112776 144 000000 MOVB #144.a(SP) “WRITE R OF ERROR IN CAL! 
64 05 162716 000002 SUB #2, :MOVE SP TO RETURN FOR ERROR 
65 05 736 PC a(SP)+ sREPORT THE ERROR VIA USER 
66 05 162716 000010 #16, (SP) “MOVE SP TO NO ERROR RETURN 
67 053674 240 NOP 
68 -REPORT ERROR IF RMMR1 NOT INITIALIZED 
69 05 76 013737 001362 001142 5s: MOV RAMIRTI  SBDD : 
70 7 001142 BIC #WC'LSILST, SBDDAT sCLEAR DONT CARES 
71 053712 012737 600010 001140 MOV aMWD, sEXPECT YRITE DATA ON 
0 05 023737 001140 001142 CMP SGDDAT,$BDDAT :COMPARE EXPECTED AND RECEIVED 
05 1413 ‘BRANCH IF ZERO 
74 05 716 ADD #4. (SP) sMOVE SP TO ERROR C 
75 112776 000145 000000 Move #145.a(SP) “WRITE ERROR IN CALL 
i: 53742 162716 00000 SUB #2, (SP) ‘MOVE SP TO RETURN FOR E 
5 746 004736 JSR PC. a(SP)+ sREPORT THE ERROR VIA USER 
78 05 750 162716 000010 SUS #10, (SP) sMOVE SP TO NO ERROR RETURN 
79 053754 000240 NOP 
80 “REPORT ERROR IF RMMR2 NOT INITIALIZED 
1 05 756 013737 001376 001142 6S: MOV AT  ;CHECK RMMR2 
537 037 14 001142 BIC #ROA!ROB,SBDDAT : CLEAR REQA, REQB 
05 12737 011 001140 MOV #TST!1777,$GDDAT sEXPECT TEST BIT ON 
54 023737 001140 001142 CMP SGDDAT.SBDDAT ; COMPARE EXPECTED & RECEIVED 
5 054 001413 BEQ 7$ ‘BRANCH IF EQUAL 
86 05401 06716 ADD ‘MOVE SP TO ERROR CALL 
054014 112776 000146 000000 MOVB . sWRITE NUMBER OF ERROR IN CALL 
88 054022 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
89 054026 004736 JSR PC a(SP)+ *REPORT THE ERROR VIA USER 
30 0540 } Zi6 000010 sus #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
4 b820 037 001140 7$: CLR SGDDAT _ sEXPECT ZEROS 
9 sREPORT ERROR IF RMEC2 NOT RESET 
94 054042 013737 001404 001142 MOV RMEC21,$SBDDAT ;:CHECK RMEC2 
95 409 001413 : H IF 
3% 54052 716 #4, (SP) 
97 054056 112776 000150 000000 #150, a(SP) : 
98 054 162716 000002 #2, (SP) : 
99 054 736 PC_a(SP)+ ‘REPORT T 
1 34 716 000010 #10, (SP) *MOVE SP TO NO ERROR RETURN 
101 76 240 NOP 
1 é -REPORT ERROR IF RMER2 NOT RESET 
103 054100 013737 001400 001142 8s: MOV RMERZI,$BDDAT : 
1 541 1413 Q : Hi 
1 3411 716 #4.(SP) “MOVE SP TO E 
1 114 112776 000147 000000 #147, a(SP) WRI 
107 054122 162716 000002 (SP) ; 
1 34 736 PC_a(SP)+ : 
1 130 1 16 000010 #10, (SP) “MOVE SP TO NO ERROR RETURN 
110 34 24 
111 1 9$: 
112 
113 054136 10S: 
114 





| _—_————_— — 
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ORIVE CLEAR STATUS CHECK SUBROUTINE | 

115 sAUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND 

ADD #4, (SP) sMOVE SP TO ERROR CALL 

117 a $778 idan Tse a( isp) WAS AN ERROR DETECTED? 

43 ar: 715 000004 ADD Hb (SP) Mes - MOVE SP TO ERROR RETURN 

120 0541 03 BR 128s 

121 bec 186 162716 000004 11$: SUB #4,(SP) :MOVE SP BACK TO NO ERROR RETURN 

1 1185 40 12$: NOP 

1 g Oec1en $69 | RTS PC sRETURN TO USER 


SD 
ee ee ee 


F 2 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTI 


-SBTTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
SUSING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 

:STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 

;THE ERROR NUMBER IN THE USERS ERROR CALL. 





sUSER"S SUBROUTINE CALL: 
*(1) | JSR PC. DTASTS 
: (2) BR RETURN HERE IF NO DATA ERRORS 
> (3) RETURN HERE TO REPORT AN ERROR 
7(4) ‘ERROR SUB WRITES E 
7(5) JSR PC,a(SP)+ USER RETURNS FOR MORE CHECKS 
7(6) ©? SUB RETURNS HERE AFTER ALL 
; ERRORS ARE REPORTED 
054166 DTASTS: 
:CLEAR USER'S ERROR CALL AND ERROR FLAGS 
054166 716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR 
054172 105076 000000 CLRB 3s (SP) ‘CLEAR LOW ORDER BYTE OF TRAP 
054176 162716 000004 SUB #4, (SP) “RESTORE SP TO NO ERROR 
054202 005037 057602 CLR 49$ “CLEAR ERROR FLAGS 


REPORT a or BUS PARITY ERROR WHILE READING REMOTE REGISTERS, 































054 032737 020000 001336 BIT WMCPE,RMCS11 §;WAS THERE A PARITY ERROR?? 
054 0014 : BEQ 1 “NO! ! 
054 013 001336 001140 MOV RMCS11,S$GDDAT  ;EXPECTED STATUS 
054 042737 02 1140 BIC anche $GDDAT 
054 013737 001 1142 MOV RMCS11,$BDDAT ;RECEIVED STATUS 
54 716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
054244 112776 000013 000000 MOVB #13,a(SP) “WRITE E R 
54252 162716 000002 SUB 2, (SP) *MOVE SP TO RETURN IF ERROR 
54256 004736 JSR PC.a(SP)+ *REPORT ERROR AND RETURN 
094 56 4$ 
54262 1$: 
ee CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS, 
5 32737 000010 001352 gir #PAR,RMER1I WAS THERE A PARITY ERROR?? 
34 7 000010 001460 BIT #DPE ,RMERZI DATA PARITY ERROR ? 
54 3737 001352 001140 MOV RMER1I1.$GDDAT EXPECTED STATUS 
5431 : 7 1 001140 BIC #PAR 
16 13737 00135 1142 MOV RMERII.$BDDAT :RECEIVED STATUS 
34 716 ADD } “MOVE SP TO USER'S ERROR 
1 76 50 movB 3 sa#50 a(SP) “WRITE E R 
34 05757 001 1346 BIT #MXF RM zDD MXF GET SET?? 
54 11 93 000274 000000 MOVB #274.a(SP) “NO - CHANGE ERROR NUMBER 
54 162716 2 28: SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
34 ; JSR PC .a(SP)+ “REPORT ERROR AND RETURN 


GRAPUNASSSSSGLES LS SEIEAEUNASVSVROVOWVISS SARS 
NOAM “MSSENEGREAAS wn —OOoN EWN IOON NAME WV ODOVOULWR— 


:LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 
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SATA TRANSFER COMMAND STATUS CHECK SUBRCUTI 
58 :MECHANICAL POSITIONING 
60 :FIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 
61 - gODE AND GO BIT WERE LOADED 
re 54 032737 001000 001346 BIT WMXF ,RMCS21 WAS ‘MISSED TRANSFER" SET?? 
64 054 é 0014 5 BEQ 5$ NOT! 
65 054 74 013737 001346 001140 MOV RMCS21,$GDDAT EXPECTED STATUS 
66 34408 042737 001 114 BIC #MXF A 
67 054410 0127 1 00114 MOV RMCS21,$BDDAT  ;RECEIVED STATUS 
68 05441 716 ADD #4, (SPS :MOVE SP TO USER'S ERROR CALL 
$9 054422 112776 000275 000000 MOVB 4373 a a(SP) ‘WRITE ERROR NUMBER 
0544 162716 p0ng02 SUB *MOVE SP TO RETURN IF ERROR 
71 054434 004736 JSR Pe atsp)+ sREPORT ERROR AND RETURN 
i 0544 4$: 
7% sRESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING 
75 054436 162716 000010 SUB #10, (SP) sMOVE SP TO NO ERROR 
i: 0 057554 JMP 46$° ‘SKIP TO END OF SUB 
23 054446 S$: 
80 } REPORT AN ERROR IF "“‘OPI'’ ERROR OCCURRED DUE TO ‘MOL'’ = 0, F ‘OPI"’ 
81 SAND "MOL" ARE SET, BUT ‘VV"' IS RESET, INDICATING AN INTERMITTENT 
054446 032737 020000 001352 ° BIT #OPI ,RMER11 s1S “OPI'' SET?? 
054454 001447 BEQ NO! ! 
§ 054456 013737 001352 001140 MOV RMER1I.$GDDAT :EXPECTED STATUS 
Hy be <9 o18737 a ares RMERI 1,$BDDAT  ;RECEIVED STATUS 
o34808 0527 7 010000 001350 SMOL .RADSI vee MEDIUM OFF LINE?? 
90 05451 2737 000100 001350 #VV.RMDSI ‘mo. INTERMITTENT?? 
91 054516 901013 vs NOT! 
% 545 716 6$ (SP) ‘MOVE SP TO USER'S ERROR CALL 
9 345 4 112776 000276 000000 ; ah a(sP) : R L 
94 054532 162716 ‘MOVE SP TO RETURN IF NERROR 
95 054536 004736 PC + atsP)¢ ‘REPORT ERROR AND RET 
96 5454 16271 000010 #10, (SP) “RESTORE SP TO NO ERROR 
97 054544 1 
oS 54546 7$: 
1 sREPORT "OPI" E WHICH IS DUE TO "ON CY INDER NOT DROPPING OR 
101 :""RUN’ TIMEOUT 3) fs) OR SEARCH TIMEOUT (50 MS 
102 054 716 ADD :MOVE SP TO user’ S ERROR CALL 
1 52 112776 277 000000 MOVB e SA SP) ‘WRITE ERROR NUMBER IN CALL 
1 162716 2 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
105 JSR c.a(sp)s RE g TURN 
1 162716 000010 SUB (SP) “RESTORE SP TO NO ERROR 
1 E 240 NOP 
574 8$: 
110 :LOOK FOR “IVC’* ERROR DURING COMMAND INITIATION 
111 054574 030737 010000 001400 BIT IVC, /RMER2ZI WAS THERE AN “"IVC'* ERROR?? 
11g ~— . REPORT Peyce" ERROR DUE TO “W"' = “OR REPORT ERRONEOUS "‘IVC’* ERROR 
114 054604 013737 001400 001140 ° MOV RMER21,$GDDAT = 0 ORR STATUS 


A —— 





| or H 2 

































sREPORT AN ERROR IF ‘RMR’ IS SET 
BIT RII 


WMV 
O00 





sWAS “RMR"’ DETECTED?? 
“NO! ! 


RMER11.$GDDAT :EXPECTED STATUS 
#RAR, SGDDAT 
RMERII s SBDDAT sRECEIVED STATUS 


#4, (SP :MOVE SP TO USER'S ig CALL 
sWRIT R INC 





4) ats! 000004 001352 
; 13737 001352 00114 
5 7 114 
: 1 i 1352 001142 
6 





000000 #304 9 a(sP) ITE ERROR ALL 

04 16271 2 *MOVE SP TO RETURN IF ERROR 
s PC asp “REPORT ERROR AND RETURN 
716 000010 #10, (S *RESTORE SP TO NO ERROR 


SSBUEARERLS 
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BATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 

115 05461 7 01 114 SIC #1VC,$GDDAT 

116 1 ete 14 ootiee MOV 51,$BDDAT  ;RECEIVED STATUS 

11 71 ADD #4, ( ‘MOVE SP TO USER'S ERROR 

118 1 900% si move #300,a(sP) ‘WRITE ERROR NUMBER IN CALL 

119 052737 iT #VV.RADS! WAS VOLUME VALID?? 

bv) Py 

121 054650 112776 000301 MOVB #301.a(SP) [CHANGE ERROR NUMBER 

1 5 54656 162716 000002 9$: SUB #2, (SP) MOVE SP TO RETURN IF ERROR 

1 736 SR PC a(SP)+ ‘REPORT “‘IVC’’ ERROR AND RETURN 

124 162716 000010 SUB #10,(S *RESTORE SP TO NO ERROR 

} 5 054670 10$: 

1 g :SEE IF “ILF'’ OR RMR’ IS SET 

1 054670 032737 000007 001352 BIT #ILR!ILFEIRMR, RMERTI 

129 054676 001510 BEQ 13$ sNO ERRORS DETECTED 

1 ;REPORT AN ERROR IF “ILR' IS SET 

131 054700 032737 000002 001352 BIT #ILR,RMERII :WAS “ILR" DETECTED?? 

1 ¢ 34706 1424 BEQ 11$. *NO!! 

133 054710 013737 001352 001140 MOV RMER11.$GDDAT :EXPECTED STATUS 

134 054716 é 7 é 001140 BIC #ILR,SGDDAT © 

135 054726 013737 001352 001142 MOV RMERII,SBDDAT  ;:RECEIVED STATUS 

136 054 716 000004 ADD #4. (SPS sMOVE SP TO USER'S ERROR CALL 

137 054 112776 000302 000000 #302,a(SP) ITE € NUMBER L 

138 054744 166716 000002 SUB “MOVE SP TO RETURN IF NERROR 

1 5473 736 JSR C,a(SP)+ SREPORT ERROR AND RETURN 

140 0547 162716 000010 SUB WiOn Cs “RESTORE SP TO NO ERROR 

141 05475 240 

19 547 11$: 

144 sREPORT AN ERROR IF “ILF'’ IS SET 

145 054760 032737 000001 001352 BIT F .RMERTI sWAS “ILF'* DETECTED? 

146 347 001424 BEOQ 

14 13737 001352 001140 MOV PAPECTED STATUS 

148 34776 03 1 001140 BIC 

149 055 13737 wate 1142 MOV sRECEIVED STATUS 

150 055 12 716 ADD 3MOVE SP TO USER'S ERROR CALL 

151 055016 112776 Z 000000 MOVB ITE ERROR NUMBER IN CALL 

1 : 5024 162716 2 SUB ‘MOVE SP TO RETURN IF ERROR 

1 5 736 JSR “REPORT ERORR AND. RETURN 

1 33 3 162716 000010 SUB “RESTORE SP TO NO ERROR 

13 36 240 NOP 

136 55 12$: 

1 

1 

1 

1 

1 

1 

1 

} 

1 

1 

1 

1 

1 


13$: 
:DETERMINE WHETHER OR NOT “‘IAE** SHOULD BE SET AND CHECK FOR ERROR 


~“ 
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OMMAND STATUS CHECK SUBROUTI 


123727 
Bs 


ne ae 


ES 
~_O 


; Se 446 


001 ow 


001420 
010000 
001420 


ii 


057602 
001335 


057602 


000000 











MOV #IAE, 
BIS #SKI.4 
CMP #1698 
BHI 15$ 
BIC #SK1,49$ 
CMPB  —s- RMDAO+1, LSTRK+1 
BHI 15$ 
RMDAO, #29. 
BLOS 
BIT #FMT16,RMOFO 
BEQ 
RMDAO #30. 

BLOS 
BIT #SSEI,RMOFO 
BEQ 
CMPB —s- RMDAO., #31. 
BHI 

14$: CLR SGDDAT 

15$: MOV RMER11,$BDDAT 
BIC #*CIAE.SBDDAT 
CMP SGDDAT , SBDDAT 
BNE 6$ 
BIC #SK1,49$ 
BP 7$ 

16$: ADD #4.(SP) 
mOVB #305, a(SP) 
SUB 2, (SP) 
JSR PC.a(SP)+ 
SUB 10, (SP 

17$: : 

REPORT 
MOV 
BIC 
MOV. 
BIC 
BIT 
th 18s 
2 if 
mOvVB #306,a(SP) 
a Re 
JSR PC Cay 
SUB 
BR 

18$: 

:REPORT AN ERROR IF SKI = 0 AND 


aoe oe 4 


ADD #4, (SP) 
MOVB 4#307,a(SP) 


sSETUP FOR ““IAE’’ = 1 

;SETUP FOR “‘SKI"' = 1 
:GREATER THAN LAST CYLINDER ? 
YES - er: IS INVALID 
3RESET SKI FLAG 


sGREATER THAN LAST TRACK ? 
YES = TRACK IS INVALID 


:1S SECTOR > 29. ? 


£18 BIT FORMAT 
YES - as 15 INVALID FOR 18 BIT MODE 





31S SECTOR > 30. ? 
:NO 
:1$ SSEI CLEAR ? 
:YES = SECTOR IS INVALID FOR 16 BIT MODE 
21S SECTOR > 
SES = SECTOR IS INVALID 
TAE"* SHOULD = 0 


:GET RECEIVED STATUS 

s1S “IAE'’ STATUS 0K?? 

:NO!! 

SIAE OK = SKI SHOULD BE 0 
:MOVE SP TO USER'S ERROR CALL 
MOVE SP TO RETURN IF ERROR 


sREPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


AN ERROR IF ‘'SKI** IS SET AND “‘IAE*’ STATUS WAS OK 
R21 ,SBDDAT 


sRECEIVED STATUS 
sEXPECTED STATUS 
WAS "SKI" S SET?? 


SUAS. "SKI CAUSED BY IAE = 0?? 
sYES - DON'T REPORT SK 

;MOVE SP TO USERS ERROR CALL 
“WRITE ERROR NUMBER 

sMOVE SP TO RETURN IF ERROR 
;REPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 









TAE WAS NOT DETECTED 
+ SKI BE SET?? 


trie SP_TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 





+ RR oe eee = 


SEQ 0227 


J2 
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SEQ 0228 
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


BEG g 
;REPORT "UNS" ERROR IF “DVC'' = 0 
























554 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
5544 736 JSR PC a(SP)+ SREPORT RET 
1 05 16271 600010 SUB #16, (SP) *RES| IRE SP TO NO ERROR 
é 554 240 NOP 
0554 19$: 
5 :LOOK FOR LSC’ OR "LBC" OR "DVC’’ IN ERROR REGISTER #2 
055452 032737 006200 001400 BIT #LSCILBC!DVC RMERZI 
055 1512 | BEQ 22$ :NO ERRORS SET 
9 sREPORT ANY DEVICE FAULT, I.£.. ‘DVC’' = 1 
40 05 54 32737 000200 001400 BT #DVC ,RMER2I 31S "VC" = 12? 
4¢ 33472 13737 001400 001140 MOV RMER21,$GDDAT :EXPECTED STATUS 
43 0555 ? 200 001140 vc 
44 055506 013737 001400 001142 RMER2I,SBDDAT ;:RECEIVED STATUS 
45 055514 716 #4, (SPS ‘MOVE SP TO USERS ERROR 
46 0559 112776 000310 000000 #310,a(SP) ‘WRITE ERROR NUMBER IN CALL 
47 055526 162716 000002 , (SP) “MOVE SP TO RETURN IF ERROR 
48 0539 004736 PC.a(SP)+ *REPORT ERROR AND RETURN 
49 055 162716 000010 #10, (SP) “RESTORE SP TO NO ERROR 
50 05540 000240 
31 05554 20S: 
25 sREPORT LOSS OF BIT CLOCK, I.E€.: “LBC’'= 1, IF "MOL" = 1 
34 055542 052737 002000 001400 BIT -RMERZI 31S LBC SET?? 
56 05555 052737 010000 001350 WAS LBC ERROR BY MOL = 0 
38 55 13737 001400 001140 MOV ‘EXPECTED STATUS 
59 055570 042 7 002000 001140 
50 055576 013737 001400 001142 MOV :RECEIVED STATUS 
61 055604 716 000004 : SP TO USER'S ERROR CALL 
52 055610 112776 000511 000000 MOVB “WRITE ERROR NUMBER IN CALL 
35616 162716 2 SUB : ‘MOVE SP TO RETURN IF ERROR 
736 JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
265 4 162716 000010 sus s« #10, (SP) :RESTORE SP TO NO ERROR 
56 05 240 NOP 
57 055 21$: 
; :REPORT LOS OF SYSTEM CLOCK, I.E., “LSC’' = 1 
70 Be "tee 004000 001400 BIT SC RMERSI zis "LSc’’ = 12? 
642 01 14 114 RMER21.$GDDAT :EXPECTED STATUS 
re 36 A 609 114 #LSC,SGDDAT 
7% 56 013737 001400 001142 RMERCI,SBDDAT  ;:RECEIVED STATUS 
75 3664 716 #4, ( “MOVE SP TO USER'S ERROR CALL 
6 55 112776 000312 000000 #312,a(SP) “WRITE ERROR R 
55676 736 PC .a(SP)+ : T ERROR AND RETURN 
78 055 162716 000010 #10, (SP) “RESTORE SP TO NO ERROR 
79 0557 240 
+ 5706 223: 
| sLOOK FOR “'UNS'’ OR ‘DTE’’ OR ‘WLE'’ IN ERROR REGISTER #1 
: 055706 052737 054000 001352 BIT IDTE!WLE .RMER1I 
ss 55714 001527 :NO BITS SET 





ee es a et 


ee - —— + 












TO USER'S ERROR CALL 
“WRITE ERROR NUMBER IN CALL 

“MOVE SP TO RETURN IF ERROR 
C.a(SP)+ “REPORT ERROR AND RETURN 
WiOn(s “MOVE SP TO [0 ERROR 


000004 #4. (SP 
112776 000314 000000 MOVB ret a(SP) 
000002 


SS 
o 
: 
23 
: 
© 
é 


PIII 
Bees 
oOo 
eae 
 ~ 
end 
Oo 
: 


WW 


24$: 
:REPORT AN ERROR IF WRITE Lore EAnee IS SET. % IF DRIVE IS NOT 
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55716 32737 040000 001352 BIT »RMER11 31S ‘'UNS"* SET?? 
55 1427 BEQ SNO!! 
88 55725 7 000200 001400 BIT VC .RMER21 cWAS UNS’ CAUSED BY "DVC''?? 
3 4) 3 001352 001140 MOV RMER11.$GDDAT :EXPECTED STATUS 
1 055744 7 04 001140 BIC #UNS , SGDDAT 
: 35732 013737 001 001142 MOV RMERII,$BDDAT ;:RECEIVED STATUS 
557 716 ADD #4. (SPS :MOVE SP TO USERS ERROR CALL 
055764 112776 990313 000000 - MOVB #313,a(SP) ‘WRITE ERROR NUMBER 
058 162716 #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
05577 736 JSR PC-a(SP)+ ‘REPORT ERROR AND RETURN 
05 162716 000010 ” #10, (SP) “RESTORE SP TO NO ERROR 
sREPORT ANY DRIVE TIMING ERROR, I.E ‘DTE’ = 
1 056004 032737 010000 001352 BIT 3 I s1S OTE SET?? 
‘ 056012 00 4¢3 Q ‘iO! ! 
14 013 001352 001140 V RMER1 I SGDDAT EXPECTED STATUS 
042737 010000 001140 BIC E .SGDDAT 
5 056030 013737 001352 001142 MOV RMERII SBDDAT  ;RECEIVED STATUS 
5603 716 ADD 5 “MOVE SP 
10 
1 
13 


E 
NOT A WRIT 







14 “WRITE PROTECTED, OR IF FUNCTION WAS 
15 056062 032737 004000 001352 BIT »RMERII :WAS "WLE"' SET?? 
16 0560 001441 NO! ! 
1 05 72 013737 001352 001142 MOV RMER11,$BDDAT :RECEIVED STATUS 
18 561 0137 7 001352 001140 RMERTI.SGDDAT :EXPECTED STATUS 
19 0561 52737 004000 001140 BIS 6DD 
11 716 000004 ADD ) sMOVE SP TO USERS ERROR CALL 
1 056120 11 06 000315 000000 7 MOVB #315, aCSP) _ $WRITE ERROR NUMBER IN CALL 
: 361 6 06149 004000 001350 BIT sul .RADSI WAS DRIVE WRITE PROTECTED? ? 
4 56136 03 <7 7 000010 001412 BIT #B1T3.RMCS10 =UAS | COMMAND A WRITE?? 
6 arr 11 076 000316 000000 25$: MOVB #316.a(SP) “CHANGE ERROR NUMBER 
56154 04273 001140 BIC 
162 162716 2 26$: SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
3 166 736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
170 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 
056174 27$: 
:OMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED 
5 056174 716 900004 ADD #4, (SP) :MOVE SP TO USER'S ERROR 
776 TST8 (SP) “WAS ERROR DETECTED?? 
1404 BEO 28$ “NO - DO DATA CHECKS 
1 4 SUB #4, (SP) “RESTORE SP 
1 14 JMP 42$ ; SKIP DATA CHECKS 
16 162716 28$: SUB #4, (SP) “RESTORE SP 


mmo 


sCHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND 


L caaoresasinllditowimempsbensinspponneeseinsanvivansancannnsapusacuanunstsesens 








L | 
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IF HEADER COMPARE IS NOT INHIBITED 


















; 013737 00141 057604 MOV RMCS10, 50S :STRIP AND STORE FUNCTION CODE | 
5 04 737 «1 BIC #*CFNCMSK,50$ | 
6 05 737 000063 057604 CMP #WH!GO,50$ ;WAS FUNCTION WRITE HEADER & DATA?? | 
1312 BEQ 31$ ;YES ~ SKIP HEADER CHECKS | 
3 056246 032737 002000 001370 BIT #HC1 ,RMOF I ;WAS HCI SET?? | 
349 54 001106 BNE 31$§ ‘YES = SKIP HEADER CHECKS 
51 :SEE IF ANY HEADER ERRORS ARE SET, I.£., ‘‘FER'' OR “HCRC’’ OR ‘HCE' 
3 956256 032737 000620 001352 BIT WHCRC! FER! HCE .RMERTI 
33 56264 001533 BEOQ 33$ :NO ERRORS SET 
55 sREPORT HEADER CRC ERROR IF SET 
36 32737 000400 001352 BIT #HCRC ,RMERTI zWAS HERE SET?? 
258 13730 001352 001140 MOV RMER11,$GDDAT EXPECTED STATUS 
59 : 7 000400 001140 BIC #HCRC, $GDDAT 
50 13737 001352 001142 MOV RMER | R11,$BDDAT  ;RECEIVED STATUS 
1 716 000004 ADD (SP ;MOV VE SP TO USERS ERROR 
$2 112776 000317 000000 MOVB a3i? a(SP) E ERROR NUMBER 
é 162716 000002 SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
004736 JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
565 000501 BR 328 
¥ U 29$: 
4: sREPORT FORMAT ERROR IF SET 
69 056 032737 000020 001352 BIT #FER,RMER1I sWAS "FER SET2?? 
0 05635 001422 BEQ NO! ! 
71 056352 013737 001352 001140 v “EXPECTED STATUS 
$7 36 042737 0 001140 BIC 
73 05 013737 bors 2 001142 sRECEIVED STATUS 
74 056374 716 ADD 3MOV VE SP TO USERS ERROR 
75 05 112776 000320 000000 ERROR NUMBER 
26 5 162716 2 SUB ; MOVE SP TO RETURN IF ERROR 
56412 0047 JSR PC a(SP)+ sREPORT ERROR AND RETURN 
78 06414 00045 BR 32$ 
79 056416 30S: 
:REPORT HEADER COMPARE ERROR IF SET 
564 BIT #HCE RMERTI sWAS "HCE" SET?? 
RMER1I.$GDDAT :EXPECTED STATUS 
5 #HCE ,SGDDAT 
RMERII,$BDDAT  ;:RECEIVED STATUS 
#4. (SPS “MOVE SP TO USER'S ERROR 
#321.a(SP) “WRITE ERROR NUMBER 
; “MOVE SP TO RETURN IF ERROR 
364 Js PC-a(SP)+ “REPORT ERROR AND RETURN 
: : THERE SHOULD BE NO HEADER ERRORS BECAUSE 3 
; .COMMAND WAS WRITE HEADER AND DATA, OR 


HEADER COMPARE INHIBIT WAS SET 
BIT gens oRMERII 
BEQ 3 

001140 BIC 
1 001142 MOV | 


000620 001352 31s: 
:NO ERRORS WERE SET 

RMER11.$GDDAT :EXPECTED STATUS 

AuCEFER'HCRC SGD AT 

RMER11,$BDDAT  ;RECEIVED STATUS 





Sp Ns 
- — 




























m2 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUT! 
400 056524 716 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
401 365 12776 00032 3323 000000 MOVB #322 a(SP) “WRITE ERROR NUMBER 
“ 6536 1 716 SUB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
56 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
404 056 163716 10 32$: SUB #10, (SP) “MOVE SP T 
409 56550 000137 057214 JMP 42$ [OMIT FURTHER DATA CHECKS 
407 056554 33$: 
208 :IF COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERWISE 
410 *DO READ ERROR CHECKS 
411 056554 032737 000010 057604 BIT #81T3,50$ :WAS THIS A WRITE COMMAND? 
Aig 56562 001 BNE as NO! ! 
413 056 000137 057002 JMP 39$ *GO DO WRITE STATUS CHECK 
41h 56570 «34S: 7 
416 sREPORT DATA CHECK IF SET 
417 056570 032737 100000 001352 BIT #DCK RMER11 sDATA CHECK ERROR?? 
418 576 1450 REQ 37$ :NO!! 
41 13 001352 001140 MOV RMER11,$GDDAT :EXPECTED STATUS 
4 é 7 1 001140 BIC #DCK SGDDAT 
421 056614 013737 001 001142 MOV RMERI :RECEIVED STATUS 
4 ; 2 062716 000004 ADD “MOVE SP TO USER'S ERROR 
423 056626 112776 000323 000000 MOVB Be stSBS ;WRITE ER 
424 05 03 737 004000 001370 BIT #ECI RMOF I WAS ECC CORRECTION DISABLED? 
425 36642 1021 ' BNE YES! ! 
4 6 0 112776 000324 900000 mOVB «o# 24 .@( SP) ‘CHANGE TO RECOVERABLE ERROR 
4 05669 032737 000100 001352 BIT CH. RMER1I1 31S ERROR RECOVERABLE ?? 
4 36676 001007 BNE 
4 :DO0 NOT REPORT RECOVERABLE ERROR IF READ COMMAND 
4 , 056662 052737 000020 057604 BIT #B1T4,50$ zMAS, 1 THIS A READ COMMAND ?? 
432 056672 162716 000004 #4, (SP) “RESTORE SP 
433 056676 10 “SKIP ERROR - DATA WILL BE CORRECTED 
434 056700 112776 000325 000000 35$: #325 a(sP) “CHANGE TO NON RECOVERABLE 
435 056706 162716 36$: #2, “MOVE SP TO RETURN IF ERROR 
4 6712 004736 PC “aShs *REPORT ERROR AND RETURN 
4 56714 162716 000010 | #10,(S “RESTORE SP TO NO ERROR 
ry 056720 37$: 
rr :REPORT DATA BUS PARITY ERROR IF SET E., MDPE = 1 
us ete 737 000400 001346 BIT #MDPE ,RMCS21 :PARE ARITY’E RROR SET?? 
44 , 13037 001346 001140 RMCS21,$GDDAT :EXPECTED STATUS 
446 744 013737 001346 001142 RACS {,$BDDAT  ;RECEIVED STATUS 
44 £38 716 SP “MOVE SP TO USER'S ERROR 
448 756 (112776 26 000000 A306, a(sP) “WRITE ERR R 
44 716 2 P) ‘MOVE SP TO RETURN IF ERROR 
4 9 736 Pc *a(SP)+ “REPORT ERROR AND RETURN 
4 ? 162716 900010 #10, (SP) ‘MOVE SP TO NO ERROR 
4 77 13 7214 38S: 42$ “SKIP WRITE STATUS CHECK 
2 : 057002 39S: 
4 sTEST TO SEE THAT OFFSET MODE WAS RESET: REPORT ERROR IF ‘OM’ = 1 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTI 
457 001350 BIT s1S OFFSET ON?? 
458 BEQ ; 
459 0011406 MOV “EXPECTED STATUS 
460 1140 BIC 
46 1142 MOV sRECEIVED STATUS 
46¢ ADD :MOVE SP TO USER'S ERROR CALL 
46 000000 MOVB ‘WRITE ERROR NUMBER IN CALL 
464 SUB ;MOVE SP TO RETURN IF ERROR 
465 JSR PC pa(SP)+ “REPORT ERROR AND RETURN 
SUB #16, ¢ “MOVE SP TO NO ERROR 
40$: 
sTEST FOR DATA BUS PARITY ERROR: REPORT ERROR IF ‘DPE"' = 1 
470 57 32737 000010 001400 BIT #DPE ,RMER21 sDATA PARITY ERROR?? 
471 057 14 ; BEQ 41$ NO! ! 
4r¢ 370 1 1400 001140 RMER21,$GDDAT :EXPECTED STATUS 
4 76 7 $5 00%0 001140 #DPE 
47 7104 013737 001400 001142 RMER21 , SBDDAT sRECEIVED STATUS 
475 057112 716 #4, (SPS VE SP TO USER'S ERROR CALL 
476 71 é 776 000000 #330,a(SP) SWRITE ERROR R 
4 7124 162716 #2. (SP) *MOVE $P TO RETURN IF ERROR 
478 71 736 C.a(SP)+ ‘REPORT ERROR AND RETURN 
479 057132 162716 000010 4 S6° (sp “MOVE SP TO NO ERROR 
2 571 41$: 
4 sTEST FOR WRITE CLOCK FAILURE; REPORT ERROR IF ‘WCF'' = 1 
é 57136 27 7 000040 001352 BIT WCF ,RMERTI 1S "WCF" SET?? 
4 146 13 ; 135 1140 MOV §- RMERTI,SGDDAT EXPECTED STATUS 
4 1 1140 BIC F $GDDAT 
A 13737 5 1142 MOV RMERII,S$BDDAT ;RECEIVED STATUS 
1 ei6 ADD #4. (SP ‘MOVE SP TO USERS ERROR CALL 
4 g 1 000000 mMOVB  #331,a(SP) sWRITE ERR R 
4 71 2 SUB *MOVE SP TO RETURN IF ERROR 
4 f JSR PC a(SP)+ :REPORT ERROR AND RETURN 
4 162716 000010 SUB #10, (SP) *MOVE SP TO NO ERROR 
4 7214 428: 
4 e ee g ee 
4 sREPORT “DATA LATE TERROR If DLT = 1 
4 7 ! BIT RMCS21 z18 DLT’ SET?? 
4 63 SGDDAT :EXPECTED STATUS 
? aDLT SGDDAT 
? RMCSOI SEDDAT sRECEIVED STATUS 
SP5 “MOVE SP TO USERS ERROR CALL 
(SP) “WRITE ERROR NUMBER 
) *MOVE $P TO RETURN IF ERROR 
: T ERROR AND RETURN 
sMOVE SP T 
sini CHANGES IN DRIVE STATUS 
1 -(SP) “STACK DRIVE STATUS 
#-C<PIP'ROL I WV>, (SP) :CLEAR DONT CARES 
vv, (SP) + 1S hive STATUS OK?? 
1 
1 sREPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 


a 





B 3 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTI 

























514 :1.£, PIP = 1 AND SKI = 0 
315 05 10 32 7 020000 001350 BIT #PIP,RMDSI 31S PIP" SET?2 
16 05731 4 BEQ 44$ [NO!! 
517 05 032737 040000 001400 BIT 3WAS "'SKI"' ERROR REPORTED?? 
518 5 1024 BNE :YES=DONT REPORT PIP 
19 05 13727 001350 001140 MOV RMDSI,$GDDAT § :EXPECTED STATUS 
0 05 737 1140 BIC $GDDAT 
1 08 13737 001 1142 MOV DAT  ;:RECEIVED STATUS 
322 5 22 16 900004 ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
523 057 112776 3 000000 MOVB #353,a(SP) “WRITE ERROR NUMBER 
524 05 162716 000002 SUB #2. (SP) 3MOVE SP TO RETURN IF ERROR 
525 05 736 JSR a($P)+ “REPORT ERROR AND RETURN 
5 6 05737 162716 000010 SUB Ws fants “MOVE SP TO NO ERROR 
5 9 240 NOP 
328 57400 44$: 
5 ;REPORT ERROR IF MEDIUM IS NOT ON LINE AND OPI ERROR WAS NOT 
531 SREPORTED, I.€.. MOL = OPI = 0 
532 057400 032737 010000 001350 BIT  #MOL.RMDSI :1S MEDIUM ON LINE?? 
5 324 0010 4 BNE YES! ! 
5 741 2737 020000 001352 BIT #OPI .RMER1 I “WAS OPI ERROR REPORTED?? 
535 057416 001023 BNE 4 YES!! 
536 057420 013737 001350 001140 MOV RMDSI.$GDDAT  :EXPECTED STATUS 
5 0574 6 052 7 01 001140 BIS L,$GDDAT 
538 057434 013737 007350 001142 MOV RMDSI,$BDDAT  ;:RECEIVED STATUS 
539 057442 ADD p ;MOV E SP TO USER'S ERROR 
540 057446 112776 000334 000000 MOVB a(SP) TE ERROR NUMBER 
541 057454 162716 000002 SUB a “MOVE SP TO RETURN IF ERROR 
34 057460 JSR PC a(SP)+ *REPORT ERROR AND RETURN 
057462 162716 000010 SUB #10,(S ‘MOVE SP TO NO ERROR 
ss 057466 45$: 
46 ZREPORT ERROR IF VOLUME IS NOT VALID AND ‘"TVC"’ ERROR WAS NOT 
54 sREPORTED, I.E., VV = IVC = 0 
348 57466 032737 000100 001350 BIT #VV.RMDSI 31S VOLUME VALID?? 
$50 37476 G30787 010000 001400 #1VC .RMER2I EWAS, ive ERROR REPORTED?? 
52 57306 1 3 1350 001140 RMDS1,$GDDAT S ERBECTED STATUS 
53 0575 52737 001140 $6DD 
54 057 13737 001350 001142 PMDSI.SBDDAT § ;RECEIVED STATUS 
5 37 716 ‘MOVE SP TO USERS ERROR CALL 
7 112776 5 000000 “WRITE ERROR NUMBER 
57542 162716 000002 ;MOVE SP TO RETURN IF ERROR 
37346 736 T ERROR AND RETURN 
5 5739 162716 000010 “MOVE SP TO NO ERROR 
57554 46$: 
:AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND 
7554 716 000004 ADD (SP) sMOVE SP TO ERROR CALL 
? 105776 000000 TSTB 4 1863 ZANY ERROR?? 
5 057 140 BEQ 47$ | ! 
, a 000004 ADD #4, (SP) “YES. - MOVE SP TO ERROR RETURN 
of 716 000004 «47S: SUB #4, (SP) sMOVE SP TO NO ERROR RETURN 


057600 000207 48$: RTS PC sRETURN TO USER 





. / ——— a 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTI 
2) 


1 Oape0s 800000 $08; “WORD ‘TEMPORARY STORAGE 


ee iin 


ES <n _ 
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STATIC DRIVE STATUS CHECK SUBROUTI 


eed ed ceed eed ee ceed aed ed = ed 


MMPI 


7 
5 
5 
57622 013746 001350 
gree ers Gott 
57636 001524 
9 
40 057640 032737 010000 001350 
41 05764 1 
rit 576 020000 001352 
45 05765 1 
4S 3 13737 001350 001140 
45 057 6 ? 40008 1140 
ry 3 4 01 os? 1 1142 
112776 7 000000 
Sere any Se 
1 057722 162716 000010 
2 000240 
7 5 32737 000100 001350 
8 SSD SRE 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 
THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 





THE SUBROUTINE 


7STATUS, SUCH AS THE DRIVE LOSING VOLUME V 
;CAN BE USED 


D. 
BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 


SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 


4 | rec CONDITIONS ARE TESTED AND REPORTED AS ERRORS 


; THAT not TS ASSUMED TO HA 






= 0, yg SMe DRIVE = eye OFFLINE, NOTE 


INDICATES THE DRI VE LOST VOLUME VALID 

INDICATES THAT THE GRIVE IS OFF CYLINDER 

e INDICATES THE DR AN UNEXPECTED SKI ERROR 
INDICATES AN UNEXPECTED DEVICE FAULT 


1, 


-DVC = 1, 





3; THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 


2(1) JSR PC -STCDRVSTS 

: BR 227% ‘RETURN HERE IF NO ERROR 

; NOP AN ERROR 

: ERROR ERROR NUMBER DEF INED SUB 

: JSR PC ,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
é 22? : RETURN HERE IF NO MORE ERRORS 
STCDRVSTS: 








sCLEAR USER'S ERROR CALL 


ADD #4,(SP) ;MOVE SP TO ge ERROR CALL 


CLRB 
UB #4, (SP) VE SP BACK TO NO ERROR RETURN 
:SEE IF PMOL = pil piv 0 


RMDSI tp) :PUT DRIVE STATUS ON STACK 
BIC chip! ROL W>, (SP) 
CMP WMOL!VV,(SP)+ “ZARE MOL.VV AND PIP 0.K.?? 













BEQ 3$ :YES!! 

:REPORT AN ERROR IF MOL = 0 AND OPI" = 0 
BIT :1S MOL ON 2? 
BNE *YES!! 
BIT “WAS “‘OPI'’ SET?? 
BNE *YES=DONT REPORT ‘MOL’ = 0 
mov ‘EXPECTED STATUS 
MOV sRECEIVED STATUS 
ADD ‘MOVE SP TO USER'S ERROR CALL 
MOVB. “WRITE ERROR NUMBER IN CALL 
SUB “MOVE SP TO RETURN FOR ERROR 
JSR Pc 0(SP)+ “REPORT ERROR VIA USER 
SUB #10,(S “MOVE SP BACK 10 NO ERROR RETURN 


1$: 


sREPORT AN — IF VOLUME VALID IS NOW ZERO AND “‘IVC" = 0 
a VV..RMDSI 


s1S |W" = 02? 
ZNO! ! 


SEQ 0235 


an 
~ 
> 
— 
me 
o 
=] 
> °] 
hme 


ond ened weed eh end enc on ow oe ond ond amd ead amd ond 


VRARAVASISISARAINASSE WEALATSS SS 
o 


z 
: 


2990000 
JIN OF 
SSS um 


VVIMIULALAM 


BST 


iz 


4 


SES 


_ 
© 


Bee 
NOLO 


MM 


BRR 
cewek aed cad ab cat eed wer amd ab od 


6 





+++. 
=s 


— 


a3 

38 

94 

x ie 

3 Beblz 

28 Sepi4¢ 
NA f 

Li 
6017 
+? 

$ be08be 

1} 

18 

14 
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TATUS CHECK SUBROUTI 





r™ 
Py 


Ser 
Oo 


ry 
ie 
18937 


SAR 


Se 
uANNNS 





















BIT #IVC.RMER21 sWAS "IVC" SET2? 
SNE = YES=DONT REPORT ‘“‘Vv"' = 0 
mov SEXPECTED STATUS 
MOV :RECEIVED STATUS 
ADD :MOVE SP TO USER'S ERROR CALL 
MOVB “WRITE ERROR R_IN CALL 
SUB :MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ ‘REPORT ERROR V R 
Us #10,(S ‘MOVE SP BACK oO. NO ERROR 
23: 
sREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND "’SKI"’ = 0 
BIT sPIP. »RMDSI :1S DRIVE OFF CYLINDER? 
BIT #SK1,RMER21 HMAS. "SKI" SET?? 
BNE :YES-DONT REPORT ‘PIP’ = 1 
MoV SGDDAT :EXPECTED STATUS 
MOV SBDDAT  ;:RECEIVED STATUS 
ADD #4, (SP) *MOVE SP TO USER'S ERROR CALL 
MOVB i. a(sP) ‘WRITE ERROR NUMBER IN USER'S CALL 
SUB (SP ‘MOVE SP TO RETURN FOR ERROR 
JSR C.a(SP)+ “REPORT ERROR VIA USER 
SUB AT Me “MOVE SP TO NO. ERROR RETURN 
3$: 
:SEE IF ‘SKI’ = 'DVC 
MOV maker. -(SP) _:PUT ERROR REG 2 ON STACK 
BIC #*C<SKI'!DVC>, (SP5+ 
a BEOQ 6$ sBRANCH IF NO ERROR 
sREPORT AN ERROR IF THERE IS A DEVICE FAULT 
BIT ADVC RMER2I zANY DEVICE FAULT?? 
nov RMER21 SGDDAT sEXPECTED STATUS 
MOV sRECEIVED STATUS 
ADD VE SP TO 
MOVB 
SUB 
JSR VIA US 
Sup #10, (SP) SMOVE SP BACK TO NO ERROR 
S$: 


sREPORT AN ERROR IF “’SKI** = 1 






BIT #SKI,RMER2ZI 1S THERE A SEEK INCOMPLETE ERROR 
MOV RMER2ZI.$GDDAT :EXPECTED STATUS 

BIC #SK1.$GDDAT 

MOV RMERC c SBDDAT sRECEIVED STATUS 

ADD | me (SPI “MOVE SP TO USER'S ERROR CALL 

MOVB wt a(SP) “WRITE ERROR NUMBER IN USER'S ERROR CALL 


ee 


SEQ 0236 


= 
— 


el ee ceed cel cee eel ce ee eed eel cel wel eee ame 


eed ceed ed et aed 
MEWN “OVOanouw 


AO 
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SUBROUT 


ATUS CHECK 
162716 000002 


140 
4! 000004 
716 000004 


INE 


SuB #2,(SP) sMOVE SP TO RETURN FOR ERROR 
JSR Pt 8 A ;sREPORT ERROR VIA USER 


Sus (SP) [MOVE SP BACK TO NO ERROR 
6$: 
sAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
ADD #4, (SP) . 
TSTB =s-_ a SP) 
BEQ 7$ 
ADD #4, (SP) 
7$: SUB #4, (SP) 
8$: NOP 


RTS PC 


WAS AN ERROR DETECTED?? 


sRETURN TO USER 


sMOVE SP TO USER'S ERROR CALL 


[YES = MOVE SP TO USER'S ERROR RETURN 
:NO = MOVE SP TO NO ERROR RETURN 


SEQ 0237 


EE seeenieitnnrnumennns 
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AND RESTORE RO-R5 ROUTINES 
1 


-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


£ SAEAAAAAAEAAAEAAERAEAAE AA AEEAAEEAEEAEKEEEAERAEEREREREREREEREEKREE 





< SSAVE _RO-RS 
2* SAVREG 
: SUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
+ &TOP---(+16) 
s% +2—---(+18) 
;* 
tt sBoooRS 
2%4+10---R2 
2&4] 2---R1 
2&4+14---Rf) 
1g SSAVREG: 
1 g19078 MOV RO,-(SP) 
16 o10246 MOY ORo2=¢8P) 
g 10346 MOV 7 (SP) 
10446 MOV 4,~-(SP) 
4 010546 MOV -(SP) 
16646 000022 MOV (SP) ,=(SP) 
glee iti MOV (SP) ,~(SP) 
16646 22 MOV (SP) ,-(SP) 
2 016646 000022 MOY (SP) ~=(SP) 
000002 Rif 
:*RESTORE RO-RS 
: *CALL: 
RESREG 
sRESREG: 
MOV (SP)+,22(SP) + sRESTORE PC OF CALL 
MOV (SP)+,22(SP) e5 PS CALL 
MOV (SP) +,22 (SP) s RESTORE PC OF MAIN FLOW 
MOV (SP)+,22(SP) 33 PS OF MAIN FLOW 
MOV (SP)+, :3:POQP STACK INTO R 
MOV (SP)+,R4 -e STACK INTO R4 
MOV (SP)+, 33 TACK INTO R3 
MOV (SP)+,R PS STACK INTO R2 
MOV (SP)+,R ::POP STACK INTO R1 
ay (SP)+.RO ::POP STACK INTO RO 





CZRNFAO_RM8O FCTNL P 
BINARY TO 


ASCII AND T 


060406 010146 
seedy 01 : 
St Ae 
Hus 
104401 

41 

P) 

: 1 

2 01 ois 
060460 000 


PE ROUTINE 
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-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


FF AAAAAAAAEAAEEEAAAAAEAEAESEAEAAEAEARAAAEAEREERRAEEAREERARRAREEERE 


:*THIS ROUTINE IS USED TO a A 16-BIT BINARY NUMBER TO A 16-B1T 
Y-ASCII NUMBER AND TYPE IT 


S$BIN: 


: *BINARY 
AL 


NUMBER ,~ (SP) 


3 ;NUMBER TO BE TYPED 


SzTYPE IT 


> GET 
tiSer “ce 





33GET T 







+3 SAVE R1 ON THE pt 


INPUT NUMBE 
*" $O_CAN_KEEP TRACK 
33SET ee ‘a TO AN ASCII 





a THE NUMBER OF BITS 


T THE CHARACTER EQUAL TO THIS SIT 
THIS BIT 
SO CAN KEEP TRACK OF BITS 


THE STACK INTO R1 


3POP 
 TADJUST THE STACK 


2 sRETURN TO USER 
¢sSTORAGE FOR ASCII CHAR. AND TERMINATOR 


SEQ 0239 


RL LLL LL LLL - 


eee nc 





A 


3 
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CONVERT BINARY TO DECIMAL AND TYPE ROU 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


itiiiii titi iiiiiiitiiiiiiiiiiiii 
THIS ROUTINE IS USED TO Conese A 16-B1T BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) R AND TYPE IT. Re ey ON WHET 

R IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: #REPLACED WITH SPACES. 



















:3PUT_ THE BINARY NUMBER ON THE STACK 
::GO0 TO THE ROUTINE 


010046 RO,~(SP) 
010146 R1,-(SP) 
010446 Re.~(SP) 
0604 10346 *=(SP) 
010546 R5.-(SP) 
060474 012746 020200 #26200.-(SP) 
060500 o1 5 000020 20(SP), 
060 b 909 : 
8 112766 000055 -,1(SP) 
013708 060676 #SDBLK,R3 
0605 Mere 000040 #* .(RS)+ 
§ 002 
532 016001 060666 


$8883 
eaane 












= 


oQoooc[d ——--3-3 


eoady enh each eoat 


Bees 








: TINCREASE THE BCD DIGIT BY 1 


ie 
54 105 R17,R5 :sADD BACK THE CONSTANT 
55 5702 R2 ssCHECK IF BCD DIGIT=0 
55 1002 5$ sFALL THROUGH IF 
5 105716 le ::STILL DOING LEADING 0°S? 
Paha? > iors 
JOU 33 
ie 













NO 
> 3s YES~--SET 






5 63. 
6( 11 5 1 177777 He “1(R3) i: THE SIGN 
05 6$: ‘ 3: THE BCD DIGIT ASCII 
0527 0 7$: a °R 3: IT A SPACE IF NOT ALREADY A DIGIT 
11 R2. eR )+ 3: HIS CHARACTER IN THE OUTPUT BUFFER 
a8 REMENTING | 
000010 m0. v0 3: THE TABLE INDEX 
46 7:60 DO THE NEXT DIGIT 
2 3:60 EXIT 
ont oR 3 3:GET LSD 
ag °:G0 CHANGE TO ASCII 
8$: i. 3WAS THE LSD THE FIRST NON-ZERO? 
i 177777 177776 -1(SP),-2(R3) ::YES=--SET THE SIGN FOR TYPING 
1 9$: (R3) 3: HE TERMINAT 





oe 





J 3 
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TO DECIMAL AND TYPE ROUTINE 
1 MOV (SP)+,RO ;3POP STACK INTO RO 
1 060676 TYPE SDBLK ::NOW TYPE THE NUMBER 
1 000004 MOV 5(SP) ,4(SP) *:ADJUST THE STACK 
1 MOV (SP)+. (SP) 
:;RETURN TO USER 
S$DTBL 
17 
144 
12 
SDBLK: 4 





me ee ee eee 


ne ee 


3 
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BINARY TO U-TAL (ASCII) AND T 






060706 017646 000000 
060712 116637 000001 
p08 112637 061133 
4 16 000002 
06073 i 730 000001 
060746 17 a3, 000008 
060754 010346 
4 46 
10546 
113704 061135 


SSS 
VETS 


ome 


WSUIWMIA ES Oh 





RRRESE 
Seeeex 
cm) cad 
acedh cared 

Ww 

WSS 

= 

—s 


amd at) an ad 


061132 
177770 


eel cond coud) we ccm eed cond ond cm) eed end cred oe ied 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


: yoenatesneneshuahnscsoosqoocenageneonesaqnqonseescqoaaqoosororse 
*THIS ROUTINE IS USED TO Cone A 16-BiT BINARY NUMBER TO A 6-DIGIT 
S SOCTAL (ASCII) NUMBER AND 
; sSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


; ;NUMBER TO BE TYPED 

:sCALL_FOR TYPEOUT 

+3N= TO 4 FOR NUMBER OF DIGITS TO TYPE 
;;M=1 OR 


1=TYPE LEADING ZEROS 
: LO=SUPPRESS LEADING ZEROS 


5 «STYPON-=--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
: #$TYPOS OR STYPOC 








#2 e222 2 8 ® 
Ps 



















3% MOV NUM, -(SP) > ;NUMBER TO BE TYPED 
. TYPON ::CALL FOR TYPEOUT 
— HERE FOR TYPEOUT OF A 16 BIT NUMBER 
2* V NUM, - (SP) > ;NUMBER TO BE TYPED 
:* TYPOC *: CALL FOR TYPEOUT 
STYPOS: MOV =(SP) ssPICKUP THE MODE 
MOVB szLOAD ZERO FILL SWITCH 
MOVB +1 2 eeer OF DIGITS TO TYPE 
- : ADJUST RETURN ADDRESS 
STYPOC: MOVE 3zSET 3 ZERO FILL SWITCH 
MOVB szSET FOR SIX(6) DIGITS 
STYPON: MOVB 33SET THe ITERATION COUNT 
MOV 23 SAVE 
MOV sZSAVE R4 
MOV :2SAVE RS 
a 33:GET THE NUMBER OF DIGITS TO TYPE 
ADD +s SUBTRACT IT FOR MAX. ALLOWED 
MOVB SOMODE ::SAVE IT FOR 
MOVB Hs aR4 * GET THE ZERO FILL SWITCH 
MOV SP) .R5 3 PICK KUP THE INPUT NUMBER 
CLR : CLEAR , Ol 
1$: ROL ; SROTATE MSB INTO °C 
BR MSB 
2$: ROL + FORM THIS DIGIT 
ROL 
ROL 
MOV 
3$: ROL ::GET LSB OF THIS DIGIT 
DECB s:TYPE TH'S DIGIT? 
BPL :3BR_IF ¥ 
BIC #177770,R3 3;GET R'. UF JUNK 
BNE 4$ sz: TEST rOR 0 
TST R4 :: SUPPRESS THIS 0? 
BEQ 5$ 33BR IF YES 
4$: INC R4 ::DON'T SUPPRESS ANYMORE 0° 


SEQ 0242 


SA a — 


SEQ 0245 








ee < ent 
$ r € 
: fon 
te Se uw 
ae song te c& 
2 ~ oo 
_—- - he my = 
S$ oo 4 —o 
—=>s. * 
Wu So & . 4 
a=W bane 
a re Pe a 
-_— 
Ww 
= 
—_ 
tas 
WY 
®e *e *e ®e *e %e *e *e@ ee Fe *e *6 
®e *e *e@ *e *e ee fe fe 26 8 2S *e 
~ 
—J 
aa 
“a. 
WwFrM~ Ww 
eecaw 
“ea —_ eee aang 
* 3 z ve tn tm of 
~ + mao MGGA—G 
wT 
te au~e~e vw OOOOoo 
ts ta ks 
freee foes fee Ip 
ey Sica ete 
a0 a =3 > e*eeese. 
ee te 
ee ALA) 
= J 
ae 
ese 


MACRO V04.00 28-JAN-82 16:49:32 PAGE 39-1 
5$: 
7$: 
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-SBTTL TYPE ROUTINE 


£ RRR ARRRRREEAEARAEAREREAAAEAERERAEEAEAEREREARERARREREERERERREREE 
:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
>*THE ROUTINE WILL INSERT A R L_ CHARACTERS AFTER A LINE FEED. 
;*NOTE1: SNULL CON D AS 











NUMBER OF NULL 
TA Thin THE tanutn’ 6 TO BE US THE FILLER CHARACTER. 













; #NOTE@: SFILLS CONTAI NUMBER OF FILLER CHARACTERS REQUIRED. 
= : SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
= *CALL: 
#1) USING A TRAP INSTRUCTION 
<. TYPE  ,MESADR s;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
ot TYPE 
6 MESADR 
53% 
061134 105737 001173 STYPE: TSTB STPFLG 3315 THERE A TERMINAL? 
1142 tt HALT SIHALT HERE IF NO TERMINAL 
114 BR 3g v 
1146 010046 1$: MOV RO.-(SP) + SSAVE RO 
061150 01 00 000002 MOV a2(SP) RO *:GET ADDRESS OF ASCIZ STRING 
061154 122 000001 001242 CMPB =: MAPTENV, SENV ;3RUNNING IN AP 
1162 1011 BNE GO CHECK FOR APT CONSOLE 
061164 132737 000100 001243 BITB §§ #APTSPOOL.SENVM Hy MESSAGE TO APT 
0611 2 001405 BEQ NO,GO CHECK FOR CONSOLE 
1174 010037 061204 MOV ,61$ SETUP MESSAGE ADDRESS FOR APT 
51 7 065546 JSR PC SATYS MESSAGE TO APT 
061 61$: .WORD 0 ae eek ct ADDRESS 
161 1 000040 001243 62$:  BITB §#APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
061214 001003 BNE :3YES, SKIP TYPE OUT 
161216 112046 2$ MOVB (RO) +, -(SP) *:PUSH CHARACTER TO BE TYPED ONTO STACK 
061 001 5 BNE 4$ °:BR IF IT ISN'T THE TERMINATOR 
061 5726 TST (SP)+ 331F TERMINATOR POP IT OFF THE STACK 
51 1 $98: MOV )+,R0 * RESTORE R 
4 é 16 000002 3g: ADD (SP) 3 SADJUST RETURN PC 
Ie ee 
061 000011 4$: COPS #HT, (SP) ::BRANCH IF <HT> 
tl. 
061 4 Fie 000200 CAP #CRLF . (SP) + sBRANCH IF NOT <CRLF> 
re 
161 728 TST (SP)+ ::POP <CR><LF> EQUIV 
061 1 TYPE *: TYPE A CR AND LF 
D¢ ? SCRLF 
61 7 061464 CLRB § $CHARCNT ::CLEAR CHARACTER COUNT 
61 5 BR *:GET NEXT CHARACTER 
061 061346 5$: JSR PC, STYPEC *:60 TYPE THIS CHARACTER 
061 6 00117 6$:  CMPB $FILLC,(SP)+ 31S IT TIME FOR FILLER CHARS.? 
061 BNE st °:IF NO GO GET NEXT CHAR. 
161276 6 001170 MOV SNULL .-(SP) 3GET # OF FILLER CHARS. NEEDED 
*:AND THE NULL CHAR. 
1 105 000001 7$: DECB —s« 1 (SP) : *:DOES A NULL NEED TO BE TYPED? 
1 BLT 6$ °:BR IF NO--GO POP THE NULL OFF OF STACK 
131 061346 JSR PC STYPEC *°G60 TYPE A NULL 
1 5337 061464 DECB SCHARCNT 3300 NOT COUNT AS A COUNT 


PREP RLRRERDS 






eed eed od cad ed ed ceed eed ceed ed eed ed ed ed ceed eed eed eed eed ee ed eed ae eed eed eed wd ee sce 8 ced etd eed eed od 








061346 


000007 


117606 
117602 
177 
00002 


117562 


117556 
177600 
000021 


117540 


000013 


061464 


000012 000002 


061464 


117532 
000002 


_ SCHARCNT : 
STYPEX: RTS 
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;HORIZONTAL TAB PROCESSOR 


8: ISR. 


BITS 


STYPEC: 


101$: 


— 
2 3 


- 
<3 





Pc, $t¥Pec 
#7.  SCHARCNT 


(SP)+ 
2s 


asTKS 

10$ 

a$TKB 

aT eb0. oP) 
#SXOFF , (SP) 
asTKS 

tote (SP) 
#177600, (SP) 
#SXON, (SP) 
101 

(SP)+ 

asSTPS 

10$ | 
2(SP) ,aSTPB 


SCHARCNT 
Ar (SP) 
ae 

0 

PC 


: REPLACE T TAB WITH SPACE 
BRAN F NOT AT 


7 
3 POP SPACE OFF STACK 
:;GET NEXT CHARACTER 


:;CHAR IN KYBD BUFFER? 
+sBR IF NOT 


sGET CHAR 
3 3STRIP ey ee BITS 
e6 CHAR XOFF 


szWAIT FOR CHAR 


23GET CHAR 
ssSTRIP_IT 
s:WAS IT X 
:2BR IF NOT 


. gsFIX STACK 


:sWAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
seIS CHARACTER A CARRIAGE RETURN? 


2 BRANCH I 

—-- CHARACTER COUNT 

31S CHARACTER A LINE FEED? 
CH_IF YES 


SICOUNT THE CHARACTER 
*: CHARACTER COUNT STORAGE 


ee ee 


ee 


SEQ 0245 


_ 
Se 


ROSRNOANOS 


SERS 


MVIMUMUMUMIMIVIUMII Iai 


oe 


NEES 


BRSReeNSe 


SESEEEEE ESE EEEE SELES ESSE LLL O OLS, 


oO 






Wins 


SONA NNAAA NIA PAO 


AAS 


000004 
177966 
177777 
061676 


117450 


117376 


062640 


000004 
062640 
062640 
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-SBTTL SCOPE HANDLER ROUTINE 


ititiiii iii iii iii iii titi iiiitiiitiiiititititiiiiitt: 

: STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

;*AND LOAD THE TEST wv ge ts INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR F (SERFLG) INTO DISPLAY ¥<15: 08> 

SeTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 































= *SW1 LOOP ON TEST 
:*SW11 INHIBIT ITERATIONS 
37*$ LOOP 
+ *SWO8=1 LOOP ON TEST IN SWR<7:0> 
= *CALL 
;* SCOPE 3: :SCOPE=I0T 
SSCOPE: 
CKSWR ::TEST FOR CHANGE IN SOFT-SwWR 
JSR PC, STOP 
1$: BIT #B1T14,aSWR ::LOOP ON PRESENT TEST? 
BEQ 9$ *:NO IF SW14=0 
™ JMP SOVER :: JUMP OVER SCOPE ROUTINE 
sMMANASTART OF CODE FOR THE XOR TESTER#AMAM 
$XTSTR: BR 6$ RUNNING ON THE ‘'XOR'' TESTER CHANGE 
$ITHIS INSTRUCTION TO A ‘NOP’' (NOP=240) 
MOV @#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
nov #5$, AAERRVEC :3SeT FOR TAMEO ur. 
MOV (SP) +, A#ERRVEC ; TRESTORE THE ERROR VECTOR 
BR :GO TO THE NEXT TEST 
5$: CMP (SP)+, (SP)+ STCLEAR THE STACK AFTER A TIME OUT 
MOV (SP) + a#ERRVEC 33RESTORE THE ERROR VECTOR 
BR “LOOP ON THE PRESENT TEST 
6$::MHMAKEND OF CODE FOR THE XOR * TESTERAANAA 
BIT #81T08,aSWR ::LOOP ON SPEC. TEST? 


BEQ 2$ 33BR_ IF 










CLR (SP) :;CLEAR A TEMP. LOCATION 
MOVB aSwWR, (SP) ::PICKUP THE DESIRED TEST NUMBER 
BEO 3 BRAN F BAD TE 
#23, (SP) ::CHECK THE NUMBER IN WR 
3 :BRANCH IF TEST NUMBER IS OUT OF RANGE 
MOV (SP), STSTNM . ; sUPDATE THE TEST NUMBER 
DEC boat ::BACKUP BY ONE 


i sy THE TEST NUMBER AS AN INDEX 
FORM THE ADDRESS OF TEST POINTER 
SET LOOP ADDRESS TO DESIRED TEST 
GO LOOP ON T 


ASL (SP) 
ADD #$SSWOBTBL, (SP) 
MOV a(SP) +, $LPADR 


BR 
8$: TST (SP)+ 





2$ TSTB RFLG :ZHAS AN ERROR OCC 
CAP ‘1 gGPSAVE :3SEE I TIMEOUT WAS PRE PREVIOUSLY RECORDED 
MOV oe 3 SAVE CONTENTS OF ERROR VECTOR 
MOV S$-ERRVEC ::SETUP ° RET DRESS 
MOV 77766, CPSAVE  ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
2000$: MOV ri Te OSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 


MOV #2001$, (SP) 3:SETUP RETURN ADDRESS 


HE TEST 
;;CLEAN THE GAD teria _— OFF OF THE STACK 


SEQ 0246 


Tt ie 


OOO nn ll el tlie 


C 
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SCOPE HANDLER ROUTINE 


























061674 909002 RTI 
061676 012637 000004 2001$: MOV (SP)+,ERRVEC § ;;RESTORE CONTENTS OF ERROR VECTOR 
061702 022737 177777 062640 2002$: CMP #~1, CPSAVE 3SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
06171 14 BEQ 2003$ ‘BRAN 
061712 0 000001 062640 BIT WBITOO.CPSAVE <:SEE IF THE POWER MONITOR BIT IS ON 
061720 001424 BEQ 2003$ : :BRANCH TO CONTINUE ROUTINE IF CLEAR 
061 042737 900004 177766 BIC #81T00,177766 CLEAR THE BIT FOUND TO BE SET 
061 013746 001154 MOV WR,-(SP) 33 SWR ADDRESS 
061 01 $46 000000 MOV a(SP) ,=(SP) ‘:SAVE SWR VALUE 
061740 012 001154 MOV #176, SWR 7:GET SOFTWARE SWR ADDRESS 
0617 011677 117202 MOV (SP) aSWR *:GET CURRENT SWR VALUE 
061752 042 001000 117174 BIC #81709 .asur ::DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
061760 104177 EMT 177 ‘CALL SPECIAL POWER FAIL BIT ERROR CALL 
061762 012676 000000 MOV (SP)+,a(SP) ‘RESTORE SWR TO ORIGINAL VALUE 
0617 012637 001154 aniee MOV (SP) +, SWR s:RESTORE SWR ADDRESS 
06177 737 001131 001117 cms SERMAX , SERFLG MAX, ERRORS FOR THIS TEST OCCURRED? 
02 q 001000 117144 BIT #2109 SUR :3LOOP_ ON ERROR? 
12 001124 001122 7$: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
20 00044 BR SOVER 
001117 4$: CLRB = SERFLG 33ZERO THE ERROR FLAG 
025 037 001206 CLR STIMES “CLEAR THE NUMBER OF ITERATIONS TO MAKE 
2 1 BR <TESCAPE TO THE NEXT TEST 
0 7 004000 117112 3S: BIT #B1T11,aSWR 33 INHIBIT ITERATIONS? 
062042 BNE 1$ YES 
044 001230 SPASS :iIF FIRST PASS OF PROGRAM 
050 1$ NHIBIT ITERATIONS 
052 0 SICNT 33 i INCREMENT ITERATION COUNT 
56 001120 STIMES,SICNT  ;;CHECK THE NUMBER OF ITERATIONS MADE 
064 -:BR IF MORE ITERATION REQUIRED 
000001 001120 1S: #1,$1CNT ; SREINITIALIZE THE ITERATION COUNTER 
074 52 0012 SMKCNT.STIMES 22S NUMBER OF ITERATIONS TO DO 
108 16 SSVLAD: INCB *:COUNT TEST 
1 1g 001226 STSTNM,STESIN <2SET TEST NUMBER IN APT MAILBOX 
114 : (SP) ,SLPADR ‘SAVE SCOPE LOOP ADDRESS 
120 4 (SP) - $LPERR 3: ERROR LOOP ADDRESS 
124 1210 SCAPE 33CLEAR THE ESCAPE FROM ERROR ADDRESS 
1 1 001131 MOVB SERMAX “ONLY ALLOW ONE (1) ERROR ON NEXT TEST 
1 18 117012 S$OVER: MOV STSTNM, @DISPLAY : DISPLAY TEST NUMBER 
144 2 SLPADR, (SP) *:FUDGE RETURN ADDRESS 
130 RTI 3 FIXES PS 
15 SMXCNT: 5. “MAX. NUMBER OF ITERATIONS 
154 SWO8TBL: 
_REPT $TN~1 
154 .WORD  TST1+ ::STARTING ADDRESS OF TEST 1 
156 “WORD  TST2+ = STARTING ADDRESS OF TEST 2 
160 } -WORD TST3+ * STARTING ADDRESS OF TEST 3 
1 -WORD  TST4+ * STARTING ADDRESS OF TEST 4 
164 “WORD  TSTS+¢ <:STARTING ADDRESS OF TEST 5 
1 “WORD  TST6+¢ *:STARTING ADDRESS OF TEST 6 
1 -WORD TST7+ STARTING ADDRESS OF TEST 
1 -WORD TST10+ 3STARTING ADDRESS OF TEST 10 
17 “WORD TST11+¢ ‘STARTING ADDRESS OF TEST 11 
176 “WORD TST12+¢ <°STARTING ADDRESS OF TEST 12 





eee 
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SCOPE HANDLER ROUTINE 
«WORD TST13+¢ 7ZzSTARTING ADDRESS OF TEST 13 
25 -WORD — TST14+ s3STARTING ADDRESS OF TEST 14 
-WORD TST15+ sZSTARTING ADDRESS OF TEST 15 
57 -WORD TST16+ ZZSTARTING ADDRESS OF TEST 1g 
1 $7 -WORD ITST17+ :zSTARTING ADDRESS OF TEST 1 
1 eWORD TST20+¢ s2STARTING ADDRESS OF TEST 
1 eWORD TST21+ :zSTARTING ADDRESS OF TEST 21 
36 031714 eWORD TST $3 :zSTARTING ADDRESS OF TEST 4 
033076 eWORD TST235+ s:STARTING ADDRESS OF TEST 
:DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 
5 STOP: . 
06 o1sre6 140 MOV #PR3,-(SP) :zPUT NEW PS ON STACK 
012746 062234 MOV #64$ ,-(SP) ::PUT NEW PC ON STACK 
000002 RTI :;POP NEW PC AND PS 
P 06 64$: 
i sRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 
9 34 012746 000240 MOV #PRS ,-(SP) ::PUT NEW PS ON STACK 
40 012746 062246 MOV #65$,-(SP) :3PUT NEW PC ON STACK 
44 000002 RTI ::POP NEW PC AND PS 


346 65$: 
10 062246 000207 RTS PC ;RETURN 
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-SBTTL ERROR HANDLER ROUTINE 


{ ERAAAAAAAAEAAEAEAAAAAETAAAAEARAAEAEAAEAERAAREREARAEEEEEEEREEERERE 


;STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND 
> *SAV _ se NUMBER AND THE ADDRESS OF THE ERROR CALL 








SEQ 0249 


THE ERROR COUNT, 


:*AND GO T P ON ERROR 
; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SW15=1 HALT ON ERROR 











+ #SW13=1 
:*#SW10=1 
+ *SWO9=1 
;#CALL 
SERROR: ¢ 
7$: 
1$: 
MOV 
MOVB 
BNE 
CMPB 
BEQ 
BNE 
CMP 
BEQ 
MOV 
MOV 
MOV 
BR 
1000$: MOV 
MOV 
RTI 
1001$: MOV 
1002$: CMP 
BEQ 
BIT 
BEQ 
BIC 
“OVE 
MOVB 
BR 
1003$: CLRB 
1004$: 
BIT 
BNE 
JSR 









LOOP ON ERROR 


INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 


N : sERROR=EMT AND N=ERROR ITEM NUMBER 


IBSAVE 
SERFLG 


STSTNM,@DISPLAY ; 
7. T10,aSWR 










SERTTL 

(SP) , SERRPC 
SERRPC 
RAPC,$ITEMB 

T09. aSWR 


SITEMB 





#-1, CPSAVE 
#1001$, (SP) 
(SP) +, ERRVEC 
#~-1,CPSAVE 
10048 

T00, CPSAVE 


sate: locave 
H77,SiTENe 


IBSAVE 
oot T13,.aSWR 
PC ,ERRTYP 


oh ae THE ITEM BYTE SAVE LOCATION 
TEST FOR CHANGE IN SOFT=-SWR 
SISET THE ERROR 
+ sDON'T rt THE FLAG GO TO ZERO 
Y TEST NUMBER AND ERROR FLAG 





oe T THE NUMBER OF ERRORS 
2sGET ADDRESS OF ERROR INSTRUCTION 
:sSTRIP_AND SAVE THE ERROR ITEM CODE 
+3 SEE i LOOP ON ERROR 3 eS 
$3 SEE IF THIS IS THE ie FAIL CALL 
H AROUND TI F IT IS 
32SEE a oe Mi THE 2ND ERROR CALL IN THIS ROUTINE 
SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 
SAVE CONTENTS OF ERROR VECTOR 
SETUP *TRAP® RETURN ADDRESS 
;sMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


2sSET CPU_ERROR REGISTER TIMEOUT INDICATOR 
:sSETUP RETURN ADDRESS 


ssRESTORE CONTENTS OF ERROR VECTOR 
+3 SEE IF oa HAS CPU ERR REG TIMEOUT INDICATION 
SISEE i oF POWER MONITOR BIT IS SET IN CPU ERR REG 
33 CLEAR THE BIT FOUND SET 
;sMAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
::SET SITEMB TO SPECIAL POWER FAIL POINTER 
: BRANCH OVER IBSAVE CLEARING 
:3CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
:sSKIP TYPEOUT IF SET 


:sSKIP_TYPEOUTS 
3260 TO USER ERROR ROUTINE 
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ERROR HANDLER 


3 


et 
Armor 





001217 
000001 


0011 
065556 


062642 
116372 


001000 


1124 
1210 


001210 
033756 


062642 


001242 
062544 


116356 


21$: 








oSCRLF 
#APTENV ,SENV 
ITEMB, “g's 
PC ,SATY 


2s 
es 


gawr 


a ter .com 


4 
SLPERR, (SP) 
SCAPE 


5 
SESCAPE , (SP) 
#SENDAD ,0#42 
6$ 


ata 


4 


: RUNNING IN APT MODE 
:3NO.SKIP APT ERROR REPORT 
Ser ITEM NUMBER AS ERROR NUMBER 
< {REPORT FATAL ERROR TO APT 


sAPT ERROR LOOP 
SEE IF IBSAVE ye LOADED 
ssBRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 


;sHALT ON ERROR 

7:SKIP IF CONTINUE 

:sHALT ON ERROR! 

3s TEST FOR CHANGE IN SOFT-SWR 
ssLOOP ON ERROR SWITCH SET? 


;sBR_ IF 
S:FUDGE RETURN FOR LOOPING 


igen FOR AN ESCAPE ADDRESS 
;FUDGE RETURN ADDRESS FOR ESCAPE 
3sACT~11 — 

; «BRANCH IF NO 


¢3SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
: RETURN BACK TO CALL ORIGINAL ERROR 


::LOCATION TO SAVE CPU ERROR REG CONTENTS 
ssLOCATION TO SAVE ITEM BYTE 


SEG 0250 


G 
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ERROR TYPEOUT ROUTINE 


-SBTTL ERROR TYPEOUT ROUTINE 


-UNIT 













‘SALTER THE ERROR MESSAGE. 
644 1044146 ERRTYP: SAVREG 
646 37} 020000 116300 BIT #SW13,aSUR 
140¢ BEQ 1$ 
137 063454 JMP 27$ 
geese Ieee gute i 
672 013746 001234 $UNIT.-(SP) 
063700 10403 OE 3 
701 O00 -BYTE 0 










cee ed ceed eed ced eed weed eed 2nd ed 
Siesta eee~a aru 





13700 
1 
















sTYPE “DRIVE TYPE’, SEO FOR UNIT UNDER TEST 
MOV T RA 


),RO 
#1 oe RO ; 
062740 #SRMBO, 3S : 
& .RO- ° 
2s: JERTYOS : 
3$: WORD 0 
-TYPE TEST NUMBER. ERROR NUMBER AND 
és: CLR STNMB 
063460 MOV STESTN. TSTNMB 
ERTYO1 
MOV TSTNMB,-(SP) 
TYPOS 
BYTE ; 
i bore 
063462 -SITEMB,ERRNMB 
ERTYO2 
ERRNMB,-(SP) { 
YTE 3 
5$: TYPE ,ERTYO3 


s*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
;*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND 


COUNTER ARE PRINTED ON THE FIRST LINE; 
IS A SSEMBLED. FORMATTED AND PRINTED ON 


sINHIBIT TYPEOUTS?? 
YES! ! 
;TYPE UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER, AND 


; TYPE *“DRVA"* 






T(S) 
SUPPRESS LEADING ZEROS 


BASE ADDRESS 
:GET DRIVE TYPE sti ee 
IVE TYPE a TS AND 





“TYPE DRIVE TYPE 
sDRIVE TYPE MESSAGE IS STORED HERE 





PROGRAM COUNTER 
sLOAD TEST NUMBER FOR 
> TYPE *“"TST#* 













33 TYPE 3 DIGIT(S) 
= SUPPRESS LEADING ZEROS 
ERROR NUMBER FOR 


3L 
SKIP i NO ERROR CALLED 
TYPE ieRRe 


3 SAVE ERRNMB FOR TYPEOUT 
YPE ERROR NUMBER 
TYRE--OCTAL ASCII 
$3TYPE 3 DIGIT(S) 
:SUPPRESS LEADING ZEROS 
“TY YPE 'PC=' 








SEQ 0251 


ee TLC 
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ERROR TYPEOUT ROUT 
46 063024 013746 


Se "e 

rf: 7 

56 Geshe BBiOgs 
53046 106 


33 





1 

54 poenae | i 
56 OF 01 
37 063066 1227 
a Sie Sun 
59 06 01 
60 06 05 
coe ae 
64 06 eet 
65 06 011001 
66 063116 001507 
3 

012102 
a! 0337 
HESS Sis 
ie 112203 


a nel 
Jesse 


D' 
SINKING 
ok ona 
oun = 
> Rese 
BOSSeuUS Wo aoa 
RO a Sg Fe ED gd HN EID Wd Sd SEND 


“J 
So 


Wet 


Ww 


a 
coweh 





BLEFREASS 
os 
ae 


001132 


001574 


063467 


063467 


MOV SERRPC ,~-(SP) 7sSAVE SERRPC FOR UL eal 


TYPOS 3360 TYPE--OCTAL ASCII 
~BYTE 6 zs TYPE 6 DIGIT(S) 


















“BYTE 1 7: TYPE LEADING ZEROS 
“GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
é$: TST RRNMB :WAS AN ERROR CALLED? 

% “BR IF YES 
27$ sNO--EXIT 
7$: SCRLF sYES-TYPE CRLF 
BOTFLG [CLEAR BOT FLA 
CHRCNT “CLEAR CHARACTER COUNTER 
ERRNMB RO “RO POINTS TO FIRST OF 
#177,RO : SEE If THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
#PFECH.RO “MOVE POWER FAIL ERROR CALL TABLE TO RO 
8$: RO :FOUR ENTRIES IN ERROR 
RO : TABLE 
#SERRTB-B. .RO 
9$: (RO) RI :R1 POINTS TO ERROR MESSAGE 
19$ ‘BRANCH IF NO ERROR MESSAGE 
-TYPE THE ERROR MESSAGE 
10$: MOV (R1)+,R2 :R2=ADDRESS OF MESSAGE STRING 
1 ; H IF END OF MESSAGE 
MOV SLOAD ADDRESS OF STRING 
“CLEAR BOT ADDRESS 
11$: MOVB END OF STRING?? 

CMPB “CARRIAGE RETURN?? 

BNE sNO!! 

CLRB *YES=CLEAR CHAR COUNT 

BR ‘GET NEXT CHARACTER 
12$:  CMPB “LINE FEED?? 

BEQ *YES-GET NEXT CHARACTER 

CMPB “HORIZONTAL TAB?? 

BNE 1 NO! ! 
13$:  INCB CHRCNT “ADJUST CHARACTER COUNT 

BITB &7,.CHRCNT 

| 
14$: NCB s INCREMENT CHARACTER COUNT 

CAPS ; SPACE?? 

MOV R2 BOTADR ‘SAVE ADDRESS OF SPACE | 
15$: CAPE  »CHRONT 3END OF LINE?? 

MOV TADR,R4 *GET ADDRESS OF LAST SPACE 

BNE “BRANCH IF SPACE DETECTED 

TYPE SCRLF “TYPE CRLF 

CLRB HRCNT *CLEAR CHARACTER COUNT 

MOV 18$,R2 “SET UP R2 FOR TESTING 





SE@ 0252 





132 
104 

18 

104 063466 
108 1217 
199 

108 

110 2 
iH 
ig 

114 

115 

116 000002 
118 1217 
1 

154 be3570 
158 

15% ( 

125 063370 000000 

1 063: 104401 001217 
158 onscoe O01787 

1 163402 } 

131 063406 105725 

132 063410 100407 

133 06341 1403 

134 063414 0134 

135 063416 1 

1 ive ' 5 

1 r% 

1 6? 

140 063430 01 

141 063432 104406 

14¢ 16 34 34 009714 

143 06: 1405 

144 063440 104401 063522 
145 06: 760 

146 6: 4 1 001217 
1e5 Ooi (eg 

i Ai 207 

15 

15 

133 

154 

155 


177777 063466 














I 
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;REPLACE ace 
3SET BOT FLAG 

; TYPE ERROR MESSAGE STRING 
SSTRING ADDRESS GOES HERE 
;WAS , STRING TRUNCATED?? 


tYES-TYPE CRLF 


SETUP 1 z. ate TYPING 
3RESTORE § ACE 


STYPE REST OF STRING 







C 
; (ASSUME NO DATA) 


IF END OF HEAD 
: (ASSUME END OF DATA) 


sHEADER ADDRESS GOES HERE 
Ati WITH HEADER?? 

sR4 pointe TO DATA ADDRESS 
:R5 POINTS TO FORMAT 

3WHAT es OF DATA?? 


SOCTAL 
> DECIMAL 





Bd DATA?? 
$YES=TYPE 2 SPACES 





sTYPE ONE BLANK LINE 
sBEFORE NEXT HEADER 


sTEST NUMBER 


11$ 
16$: ~(R4) 
#-1,BOTFLG 
17$: 
18$: 
BOTFLG 
BOTFLG 
CHRCNT 
TADR ,R2 
R2,18$ 
#° .=-(R2) 
(Rade 
11 
TYPE ERROR HEADER AND pam DATA 
i9$: MOV on RO) R 
BEQ 7$ 
TYPE RLF 
MOV 4(RO) R 
(RO) .R 
208: (R1)+.21$ 
21$: | 
SCRLF 
(R2)+,R4 
(R3)+,R5 
223: + 
3$ 
a(R4)+,-(SP) 
25$ 
23$: a(R4)+,-(SP) 
253: 
243: a(R4)+,-(SP) 
25$: (R4) 
BEQ 26$ 
i RTYO4 
26$ TYPE CRLF 
be 80S 
27$: RESREG 
RTS PC 
: WORD 
: WORD 
: WORD 





CHRCNT: .BYTE 


BEGINNING OF TEXT ADDRESS 
sBOT FLAG 
sCHARACTER COUNT 


a POINTS TO ERROR HEADER TABLE 
HEADER 


ihe PO! paints TO DATA ADDRESS TABLE 
S_TO FORMAT T 

:PUT PREADER ADDRESS FOR TYPE 

BRANCH IF E ERS 


SEQ 0253 


33 


~ 


wt 


ge 
ez 
z0 


Ne ad 


Sea a adeeb ada beaded Dad 
FUNASSSLEAFARLS 
Sax 
RS 
Ee 
™N 
a 
as 
~ 
™m 
N 


PFECH2: 


PFECHS: 
PFECH4: 


J 4 
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aDRVsa 
a, TEST# 
@, ERR# 


a, PC=a 
aa 
a-@a 





H: PFECHT.PFECH2.PFECH3.PFECHS :WORDS DEFINING TABLES BELOW 
: -Astl7 2POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 


- 44,0 
-ASCIZ ?CPUERREG? 
EVEN 


< 
MW CPSAVE 0 
-BYTE 0.0 


SEQ 0254 


ee ee ee 


re ee ee ee ee 


a 


~ 
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-SBTTL TTY INPUT ROUTINE 


Ff SAAR AAAASAAAAAAAAA STS SHS A SAAT AA AAALAARERARAAAKARARAAAARARAEAERAKE 


yr OF ITEMS IN QUEUE 





cree ttt : SINPUT POINTER 
AOC i) : 3 ;QUTPUT POINTER 
z3TTY KEYBOARD 
063667 


ot INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
+ «SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 







j : STKCNT : 

PSTKOSRT STKQIN :: 

KOIN,STKQOUT : 

4 aSTk SRV gOeTKV C; 
u200 avi 3 





115222 #100, aSTKS 
PC 


s*TK SERV TINE 
s*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
Y READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


A “CONTROL-C'* (*C) STKINT IS CALLED AND 








MADE TO THE “‘CONTROL-C** RESTART ADDRESS (SHUT2) 
1136) SP) :sPICKUP THE SeenAc TER 
17 SP) :STRIP bg 
000021 XON s:IS ITA RANDOM XON? 
: BRANCH IF NO 
ae RANDOM XON OFF STACK 
7 SRETURN 





000003 CMP s:18 IT A CONTROL C? 
BNE si IF NO 
663066 TYPE T ais 3 A CONTROL-C (°C) 
JSR wT :: INIT THE KEYBOARD 
TST (SP) + ::CLEAN UP STACK 
065130 JMP T :: CONTROL C RESTART 
7 CMF 2:18 IT A CONTROL G? 
BNE een : ;BRANCH IF NO 
000176 001154 CMP ee 2:18 SOFT-SWR SELECTED? 
BEO 3:60 TO SWR C 
23: 
e737 000001 063660 CMP #1, $TKCNT ::1S THE QUEUE FULL? 
1006 BNE 3$ * =BRANCH IF NO 
1 001212 TYPE SBELL * =RING THE TTY BELL 


—_—-+— ow + oe - ~~ — 


Ne 


oO 


RSRVRVO 


SRRPERRESESERRS 


RSRORS 


SESSSSES 


N~ OSSNy 
= 
TOOTORR ae 


SeSY SASERS 


SERS 
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904780 


112737 


194401 


is 


000023 
115102 
115074 
115070 
177600 
000021 


000176 
114754 


114750 
177600 
000007 


001150 
06367 

Sa7i5 
000001 


0651 


963108 


115046 


063667 
063662 


001154 


000001 


001151 








IST {sP)+ £3 CLEAN CHARACTER OFF OF STACK 
3$: CMP oA 423 3315S Ren WOnn 
CLR TKS < {DISABLE TTY KEYBOARD INTERRUPTS 
TST (SP)+ CLEAN CHAR OFF STACK 
31$:  TSTB asks *:WAIT F 
BPL 1$ ::LOOP UNTIL ITS THERE 
MOVB asixe -(SP) =:GET THE CHARACTER 
BIC #°C177, (SP) *:MAKE IT 7-81T ASCII 
CMP SP)+,# *:I1S IT A CONTROL-0 
BNE 1$ : BRANCH IF NO 
MOV #100, a$TKS : :REENABLE TTY KEYBOARD INTERRUPTS 
32$: INC STKCNT 33 COUNT THIS CHARACTER 
CMP (SP) 4140 31S IT UPPER CASE? 
(SP) #175 *:I1S IT A SPECIAL CHAR? 
ato 29 H YES 
(SP) ::MAKE IT UPPER CASE 
4$: tepses @STKQIN ::AND PUT IT IN QUEUE 
TKOQIN i ZUPDATE THE POINTER 
STKQIN,#STKQEND ;;GO OFF THE END? 
::BRANCH IF NO 
V WSTKOSRT,STKQIN ::RESET THE POINTER 
5$: RTI 3: RETURN 


J RAAAAAAAARAEREAARARARARERERERAEAEEAERARAAREREARERAEREARERREKREREEKRE 


3 # SOFTWARE SWITCH ge BLES CHANGE ROUTINE. 
IS ENTERED FROM THE TRAP HANDLER, AND WILL 
N SOFTWARE SWITCH REGISTER TRAP 










: *ROUTINE 
S*SERVICE THE TEST FOR C 


HANGE IN 
*CALL RATING IN TTY INTERRUPT MODE . 
$cKSWR: CMP G,SWR 21S THE SOFT=-SWR SELECTED 

15$ *SEXIT IF 
a$TKS *:IS A CHAR WAITING? 
15$ 331F NOT, EXIT 
a$TkB,-(SP) 
#°C177, (SP) < CMAKE IT 7-BIT ASCII 
(SP) 47 218 IT A CON 





“IF NOT, PUT IT IN. THE TTY QUEUE 
EXIT 


SCONTROL 1S PASSED TO THIS POINT FROM EITHCR THE TTY INTERRUPT S 
CONTROL IS PASSED TO THIS POINT FROM EITHCA THE TTY INTERRUPT SERVICE 
**ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF 

Eh ER BEING SELECTED. 













;*CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTE 
6S: CMPB T0B, #1 33ARE WE RUNNING IN AUTO-MOD 
- BRANCH IF YES 
(SP)+ 3 CLEAR CONTROL-G OFF STACK 
PC S$TKINT FLUSH THE TTY INPU 
CLR K “DISABLE TTY KEYBOARD INTERRUPTS 
#1, S$INTAG “SET INTERRUPT MODE INDICATOR 
TYPE  ,$CNTLG s:ECHO THE CONTROL-G (*G) 
SGTSWR: TYPE  -°S$MSWR *: TYPE CURRENT CONTENTS 
V SWREG,-(SP) *:SAVE SWREG FOR TYPEOUT 
TYPOC **GO TYPE=-OCTAL ASCII(ALL DIGITS) 


SEQ 0256 


: 
z8 


$e FREE? 


Ww 


RES eos 


SEESE 


SESS FEF 
SNES 


eats 
SVONONEVUERS 


REEREES 


VISOEN 
~ 

< 

ont A — 
& 

heres 


Sj 
MO 


VIAL 


Bivons 


3 


$333 
md A} and aed 
oe 


Ets 
oa 
LEN 


_ 
Sy 
~ 
N 


Qunvownn 


com 
= 
Pe Sr 


~ 
—~ = 


065116 
114652 
114646 


177600 
000003 


B00 


1 6 
001216 


000001 
114604 


114532 


000001 
114510 


19$: 
7$: 
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a$TKB,-(SP) 
#°C177, (SP) 


(SP) #3 
,$CNTLC 
#6.SP 
SINTAG, 41 
#100, a$7KS 
SHUT2 


(SP) ,#25 


eSCNTLU 
#6,SP 


) 

; (SP), (SP) 
QUES 

ss 


:zPROMPT FOR NEW SWR 
CLEAR COUNTER 





33 CHAR ? 

z21F NOT TRY AGAIN 
3zPICK UP CHAR 

3zMAKE IT 7-BIT ASCII 
3318S IT A CONTROL-C? 


7:YES, ECHO CONTROL-C (*C) 
*:CLEAN UP STA 
;SREENABLE TTY KEYBOARD INTERRUPTS? 


; «BRAN 
:sALLOW TTY KEYBOARD INTERRUPTS 
:sCONTROL-C RESTART 


31S IT A_CONTROL-U? 


7:YES, ECHO CONTROL-U (*U) 
*: IGNORE PREVIOUS INPUT 
**LET'S TRY IT AGAIN 

3:18 IT A <CR>? 

*:BRANCH IF NO 

“:YES, IS IT THE FIRST CHAR? 
= *BRANCH IF YES 


STACK 
:sECHO <CR> AND <LF> 
ae te Mis KBD INTERRUPTS? 


: RE-ENABLE TTY KBD INTERRUPTS 


Be 
Se Ge 
oom 
geeseis 
veane x 
eit} 
a) “View 
-< 
m 
a) 


P-OFF ASCII 
31S THIS THE FIRST CHAR 
BRANCH IF YES 


nae 
met 
2] 
fang 
~ 
= 
mes 
be 5 | 
Ed 
mm 
” 


Bo} 
2 
feos 


oe NEW ONE. 
:sKEEP COUNT OF CHAR 
:sSET IN NEW CHAR 

;3GET THE NEXT 


FE AAAAEAERERERREREEREREEEEEEEEREAERRREREAERARAERERAREREREEEEAERAERERERER 


SE@ 0257 


ee —_——- 


PESESESSSSES 
RRAAE LAS 


eee 
“J 


33 


: 


$33: = 
PROC 
SNn 


On chon one 
333333 
ceed cool 
cad 

= PON 


SN 
Ro 
~4 
ron 


NO & 
eek 


33 
eNO 
rds 
Nave 
= NNN UWI 


ee Oh Oe Oh Oe Oe OOOO OO OOO 
ISIS SS SS 
aud =| = 

tx + 
ead seed 
Win 
tN tay Ato 


& 
Syss 


raesd 


065056 
065066 


000177 


fa 


065056 
063 54 
5054 


134 
054 


000025 


065054 . 


065054 





RDCHR 
RETURN HERE 


MAW 
na~— 
x 


(SP) ,-(SP) 
4(SP5 ,2(SP) 
4(SP) 
-(SP) 
#64$,-(SP) 


STKCNT 
1$ 


STKCNT 
a@STKQOUT ,4(SP) 


$TKQOUT, #STKOEND 
#STKOSRT ,STKQOUT’ : 





3sGET A CHARACTER FROM THE QUEUE 
: CHARACTER IS ON THE S 
:sWITH PARITY BIT STRIPPED OFF 
et — THE PC AND 

EADY FOR A_CHARACTER 
T NEW PS ON STACK 

PUT NEW PC ON 
::POP NEW PC AND P 
:sWAIT ON A CHARACTER 
_ ¢sDECREMENT THE een 


ATE _THE POINTER 
sDID IT GO OFF OF THE END? 


SgRESET THE POINTER 


RTI 
; SdeRheetennennnenenteeneeereetanacenneneeenaenagnananeneeeeeees 






SRTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


3*CALL: 





RDLIN 
RETURN HERE 


R3,~(SP) 
=-(§P) 


#STTYIN, RS 
“dha 


(SP)+, (R3) 
(R3) 


3sINPUT A ae FROM THE TTY 
2 sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
7: TERMINATOR WILL BE A BYTE OF ALL 0°S 


:3BR 
7: TYPE A BACK SLASH 


; CLEAR KEY 
7318 2 hl A CTRL U? 


IS5S5RSe 


om = 


CK 


~” 
gesntzs 
fam 






UP BY 
EMPTY? 


F YES 
:iSETUP TO TYPEOUT THE DELETED CHAR. 
3360 READ ANOTHER CHAR. 


;sRUBOUT KEY SET? 


THE RUBOUT 


STACK 
Ss 


AD ONE CHARACTER FROM THE TTY 


NO 

IS THE FIRST RUBOUT? 
PE A BACK SLASH 

T THE RUBOUT KEY 


SEQ 0258 





SERESELLE 
BEER SaaS 
2238 
SE32 


ges 


Bie 


eS 
ou 


NE 
744 «(1 1 
Sires ik 
752 1227 
7 ott 
SoMa el 
SH ste 
Si ae 
as 


065073 
000022 
001217 
065056 
001216 
065054 


ee 


177777 
001220 


065056 


pe 
=Ono 
Oonnuw 


x 


177777 
001116 


033776 


9$: 
STTYIN: 


TYPE 
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SCNTLU z: TYPE A CONTROL ‘U"’ 
7:60 START OVER 
#22. (R3) 3318 CHARACTER AR‘? 
(23) ::CLEAR THE ai APACTER 
-SCRLF sc: TYPE A 
STTYIN +: TYPE Nae’ Rupr ¥ TRING 
3$ 3360 PICK UP ANOTHER CHACTER 
SQUES YPE A °?° 


i$ SICLEAR THE BUFFER AND LOOP 


(R3) ,9$ :sECHO THE CHARACTER 
#15,,(R3)+ ::CHECK FOR RETURN 

:sLOOP IF NOT RETURN 
-1(R3) :3CLEAR RETURN (THE 15) 
o SLF ss TYPE A LINE FE 
(SP)+ :CLEAN R T KEY FROM THE STACK 
Gaps fe ;zRESTORE R 

SP) + sADJUST THE STACK AND PUT ADDRESS OF THE 


(SP 

ses. 2(SP) 33 FIRST ASCII CHARACTER ON IT 

#STTYIN,4(SP) 

: :RETURN 

33STORAGE FOR ASCII CHAR. TO TYPE 
= TERMINATOR 

: SRESERVE 8 BYTES FOR TTY INPUT 


wBoOo 


/°C/<15><12> 3: CONTROL 
per pit oh ( : s CONTROL “yt 
<15><12> ::CONTROL ‘'G’’ 


a ><129/ SUR = / 
‘Jf NEW = / 


#-1,CTLFG :SET THE CONTROL=-C FLAG 
STSTNM “DOING ANY TESTS ? 

1$ :BR IF YES 

SHUT 


sNO--RESPOND TO “C 
sEXIT FROM INTERRUPT 


SEQ 0259 


CZRNFA 


0 
READ AN 


1 


RM8O FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 45 
OCTAL NUMBER FROM 


IMMA 





SECO O SCOR ORCC OOOO COCO ROT 


33= o= ° 
BiReseteess 
=“MNOn— ao ao 


ae: 


sagnee 
NESS = 


—_ 
M—N—"O 


oS 
SStiens 


ees 
eee 


THE TTY 


c 5 . 
SEQ 0260 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


©  EEEAAAEEEEEAAAREEEREAAEAETAEAAAAAAAAAAARAAAAEEEARAAARRARARAEARRE 


**THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
“#CHANGE IT TO BINARY. 


*CALL: 





RDOCT 2sREAD AN OCTAL NUMBER 
* RETURN HERE :;LOW ORDER BITS ARE ON TOP OF THE STACK. 
* :sHIGH ORDER BITS ARE IN SHIOCT 





SRDOCT: (SP) ,-(SP) :z;PROVIDE SPACE FOR THE 
MO 4(SP5 ,2(SP) INPUT R 
a7 (SP) ::PUSH RO ON STACK 
R1,-(SP) ::PUSH R1 ON STACK 
R2,-(SP) :;PUSH R2 ON STACK 
1$: sZREAD AN ASCIZ LINE 
(SP)+,RO 3:GET ADDRESS OF 1ST CHARACTER 
RI s:CLEAR DATA WORD 
2s: (RO) +,-(SP) s;PICKUP THIS CHARACTER 
3$ :z:1F ZERO GET OUT 
ASL R14 s3%2 
ROL R2. 
ASL R1 33%4 
ROL R? 
ASL R1 33%8 
ROL R2 
BIC #*°C7, (SP) :2:STRIP THE ASCII JUNK 
= oe ::ADD IN THIS DIGIT 
3$: (SP) + ::CLEAN TERMINATOR FROM STACK 
R1,12(SP) ::SAVE THE RESULT 
R2,$SHI 
(SP)+,R2 ::POP STACK INTO R2 
(SP)+,R1 3:POP STACK INTO R1 
(SP)+,RO0 ::POP STACK INTO RO 





RTI oe 
SHIOCT: .WORD 0 :sHIGH ORDER BITS GO HERE 


y 
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TRAP DECODER 


-SBTTL TRAP DECODER 


FF laledniatnbebetabnielninletnbabaiainded-tubeiciainbeininbaisielateighelet-iniabeiniaioteiniah tedeipebtabetebeiebedetetob 

; *THIS ROUTINE WILL oe THE LOWER BYTE OF be *“TRAP*’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH E FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

#60 TO THAT ROUTINE. 














065254 016646 STRAP: MOV 2(SP), = (SP) ;sASSUME THE STATUS OF 
065260 042716 é BIC #20, (SP) :: THE CALLER=-DO NOT ALLOW 
065264 012746 0652 MOV #1$.-(SP) :: T-BIT TRAPS 
065 29 RTI 33SET THE NEW STATUS 
065 1 1$: MOV RO,-(SP) 
065274 01 000002 MOV 2(SP) ,RO 3GET TRAP ADDRESS 
065 TST -(RO UP BY 2 
065 111 MOVB (RO) .RO | =36ET RIGHT BYTE OF TRAP 
065 ASL RO ‘POSITION FOR INDEXING 
065306 916000 065326 MOV STRPAD(RO),.RO ::INDEX TO TABLE 
5312 000200 RTS RO *:60 TO ROUTINE 
s:THIS IS USE TO HANDLE THE ‘‘GETPRI'’ MACRO 
065314 011646 STRAP2: MOV (SP) ,=(SP) zzMOVE THE PC DOWN 
065316 016666 000004 000002 MOV 4(SP5 ,2(SP) ;3MOVE THE PSw DOWN 
065324 000002 RTI * RESTORE THE PSW 
.SBTTL TRAP TABLE 
ssTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
**BY THE “TRAP’’ INSTRUCTION. 
: ROUTINE 
065326 065314 STRPAD: .WORD 
5 061134 7 STYPE ::CALL=TYPE | TRAP+1(104401) TTY TYPEOUT ROUTINE 
5332 060732 | STYPOC ;;CALL=TYPOC paps$ 104408) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
065 706 YPOS :;CALL=TYPOS (104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
5 746 STYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER ( 
5340 62 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SI 
5342 06 STYPBN °::CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
065344 064260 SGTSWR ::CALL=GTSWR §_ TRAP+7(104407) GET SOFT-SWR SETTING 
5 064170 ; SCKSWR ::CALL=CKSWR TRAP +10(104410) TEST FOR CHANGE IN SOFT-SWR 
£45 53 SRDCHR ::CALL=RDCHR § TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
5 3¢ 62 SRDLIN ::CALL=RDLIN TRAB+Ia (I 412) TTY TYPEIN STRING ROUTINE 
5 51 SRDOCT ::CALL=RDOCT §§ TRAP+13(104413) READ N 0 TAL NUMBER FROM TTY 
5 312 SSAVREG 3:CALL=SAVREG TRAP+14(104414) SAVE R ROUT INE 
5 35 SRESREG ::CALL=RESREG TRAP+15(104415) RESTORE ae ROUT INE 


E 
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-SBTTL POWER DOWN AND UP ROUTINES | 


Ff RRA AEAEAARAEEEREREEEEEE EEE RRERAEREARERAREREERERAASRECHREKEERER 








“POWER DOWN ROUTINE 
5 01 737 065522 900024 SPWRDN: MOV #SiLLUP UP ,SAPURVEC ; 2S :SeT FOR FAST UP 
- 012737 000026 MOV 33PR 0:7 
5376 01 MOV RO,-(SP) ‘PUSH H RO ON STACK 
069400 10146 MOV * PUSH R1 ON STACK 
eats 1 a2 MOV :2PUSH R2 ON STACK 
0654 10346 MOV ;3PUSH R3 ON STACK 
5406 010446 MOV *PUSH R& ON STACK 
06541 1054 MOV : PUSH RS ON STACK 
5412 01 113536 MOV ) *:PUSH @SWR ON STACK 
5416 01 065526 MOV SP, $SAVR6 s:SAVE SP 
34 012737 065434 000024 MOV | SSPURUP. @#PWRVEC ::SET UP VECTOR 
54 000776 BR 72 : HANG UP 
CF Steg gy han tanh hsihacmiech ecilechadiheds 
“POWER UP ROUTINE 
065434 012737 065522 000024 $PWRUP: MOV ASILLUP ,a@#PWRVEC SET FOR FAST DOWN 
069442 01 5526 MOV SSAVR6, SP ::GET SP 
3446 5526 SSAVR6 s:WAIT LOOP FOR THE TTY 
06545 3 065526 SSAVRE 3 sWAIT for THE INC 
065460 012677 113470 (SP)+, aSwWR 3 POP STACK INTO aSWR 
06 12605 (SP)+,R ::POP STACK INTO R5 
5 012604 (SP)+,R4 *:POP STACK INTO R4 
065470 01 603 (SP)+,R *:POP STACK INTO R3 
5472 012602 (SP)+,R ::POP STACK INTO R2 
5474 ot 601 (SP)+,R 33POP STACK INTO R} 
5476 01 (SP)+,RO ::POP STACK INTO RO 
5 01 065362 000024 Q#PURVEC : goer T UP THE POWER DOWN VECTOR 
3206 012737 000340 000026 #340, aMPURVEC+2 ::PR 
514 104401 ‘REPORT T THE POWER FAILURE 
33! 55 g SPOWER 73POWER FAIL MESSAGE POINTER 
5522 3zTHE POWER UP SEQUENCE WAS STARTED 
5524 é 2 > BEFORE THE POWER DOWN WAS COMPLETE 
22 0g sale SSAVR6: *:PUT THE SP HERE 


120 SPOWER: .ASCIZ <15><12>°POWER"’ 
- EVEN 


F 
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I ROUT INE 


-SBTTL APT COMMUNICATIONS ROUTINE 


Oh singe eae giggle > > eal 

























066006 $ATY1: #1,$FFLG TO REPORT FATAL ERROR 
066002 S$ATY3 fi. SHFLG <°T0 TYPE A MESSAGE 
066004 SATY4 #1,$FFLG :2T0 ONLY REPORT FATAL ERROR 
R1.~(SP) : PUSH R1 ON STACK 
sac $$ SHOULD TYPE A MESSAGE? 
001242 CMB #APTENV, SENV : }OPERATING UNDER APT? 
001243 B1TB — »SENVM ::SHOULD SPOOL MESSAGES? 
MOV a4 (SP) + :GET MESSAGE ADDR. 
000004 ADD #2 a38) BUMP RETURN ADDR. 
1$: TST SMSGT ::SEE If DONE W/ LAST XMISSION? 
BNE 1$ c:IF NOT: WAIT 
MOV RO. SMSGAD :3PUT ADDR IN MAILBOX 
2$: TST (RO) + ‘FIND END OF MESSAGE 
SUB SAscA. RO sti START OF MESSAGE 
ASR °:GET MESSAGE LNGTH IN WORDS 
MOV RO. SMSGLGT *:PUT LENGTH IN MAILBOX 
001222 nov 4, SASGTYPE s:TELL APT TO TAKE MSG. 
065714 3S: MOV a4 (SP) .4$ 
000004 ADD #2,4(SP) 
MOV 177776,=(SP) 
JSR PC STYPE 
oe 
10$: § TSTB is SHOULD REPORT FATAL ERROR? 
BEQ 12$ czIF NOT: 
TST SEN 3 [RUNNING UNDER APT? 
BEQ 1 s:1F NOT: 
: SF INISHED LAST MESSAGE? 
11$ s:IF NOT: WAIT 
1224 Q4(SP),SFATAL ::GET 
#2,4(SP) BUMP RETURN ADDR. 
SAScTYPE 3 TELL L Abt TO TO TAKE ERROR 
SFFLG *:CLEAR FATAL FLAG 
SLFLG = CLEAR LOG 
SMFLG 2: CLEAR MES 
(SP)+,R1 33POP STACK INTO Ri 
{SP)+,R0 : POP STACK INTO RO 
: ESSG.. FLAG 
*:FATAL FLAG 
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—— —— 
ee ee 


-SBTTL CONSOLE MESSAGES 













: 103 101 .ASCIZ <CRLF>@CANNOT RECOVER THE BAD SECTOR FILES ON THIS DEVICE@ 
4 000 -ASCIZ a@=a 
5 101 114 114 .ASCIZ @ALL@<CRLF> 
: 0 077 0 -ASC1Z a2? 4 
54 040 -ASCIZ @. @ 
é 126 11 “ASCII <CRLF>@TO ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISKa 
4 125 “ASCII <CRLF>@DURING ERROR FREE OPERATION, THIS BEa 
10 192 105 -ASCII <CRLF>@BE HALTED BY TYPING A (*C) CONTROL C. AS A RESULT.@ 
11 124 110 -ASCII <CRLF>@THE PROGRAM WILL BE HALTED WHEN THE DRIVE UNDER TEsfa 
1 110 101 “ASCII <CRLF>@HAS COMPLETED TESTING.@ 
1 “ASCII <CRLF> 
14 124 131 -ASCIZ <CRLF>@TYPE HELP TEXT (L) N ? @ 
15 122 115 CNSLO1: .ASCIZ <CRLF>@RMCSi=a 
16 g 114 111 CNSLO2: .ASCIZ @ LIMITS - LO= 160000, HI= 17XXXX@<CRLF> 
1 12 115 126 CNSLO3: .ASCIZ a@RMVE 
18 0 114 117 CNSLO4: .ASCIZ @ LIMITS - LO= 0, HI= 1000@<CRLF><LF> 
1 124 131 CNSLO7: .ASCII <CRLF>@TYPE ‘‘A’’ TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a 
101 116 -ASCIZ <ERLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.@ 
5 0 077 111 LO9: .ASCIZ @ 2?ILLEGAL INPUT@<CRLF> 
104 122 “ASCIZ <CRLF>/DRIVE(S): / 
4 104 122 111 .ASCIZ /DRIVE/ 
z, 1 116 -ASCIZ <CRLF>/UNIT STATUS: / 
6 12 115 070 .ASCIZ /RMBO/ 
04 116 117 -ASCIZ 
| 040 114 117 ASCIZ 
049 116 117 -ASCIZ 
6 6G 116 117 -ASCIZ 
7 040 11 106 -ASCIZ 
71 040 117 116 .ASCIZ NE / 
71 200 104 122 wASCIZ <CRLF>/DRIVE(S) TO BE TESTED/ 
7 116 117 116 .ASCIZ /NONE/ 
5 067 116 000 ~ASCIZ = /N/ 
? 131 000 eASCIZ /Y/ 
0 ASCIL // 
0 ASCII / / 
7240 ASCII / / 
7241 0 000 ASCIZ // 





ae 
=o 


——EE . _ a 


Re 
Fi 


FUP ES Be PPP HHH od ed ed ed ed eed eed eed 
QRALUNAWSSSVSGRGALESSIEUARUNSSVSSVERRUVGVS Sara anranw=cowmwouswun— 


sé 


067244 
067244 


C 
TABLE 


020000 
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-SBTTL FUNCTION CODE TABLE 


THE FUNCTION CODE TABLE IS USED TO wt ti STATUS CONDITIONS FOR 
SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
<IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISC. 
:BIT 13 als ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY GE SET. 
‘NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
:1T IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IvC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE = BIT 11 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF _WRITE ERRORS ARE ENABLED DURING THE FAECUTION OF, THAT COMMAND; 
:THE WRITE ERRORS WHICH ARE ENABLED ARE WCF, DPE, URE". 


IAE - BIT 10 IS SET IN THE ENTRY A A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF T 
: COMMAND, THE ERRORS ENABLED BY THIS BIT ARE “TRE”, “DLT, “NE 


; BIT 08 IS NOT USED. 
HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
OMMAND . 


SIF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT C 
HEADER ERRORS INCLUDE "HCRC''’, "HCE’', "FER. AND "BSE". 

































ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
ZIF_DATA FIELD ERRORS ARE ENABLED DURING, THE EX ECUTION OF THAT 
COMMAND. THESE ERRORS INCLUDE "MDPE'’, ‘DCK’', 





; BIT 05 IS NOT USED. 

; BIT 04 IS NOT USED. 

: BIT 03 IS NOT USED. 

; BIT 02 IS NOT USED. 

: BIT 01 IS NOT USED. 

; ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: FUNCTION CODE TABLE 
«WORD OPI ;NOP 





SEQ 0265 
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58 067246 130001 -WORD OPI!ATA!ILF! IVC ILLEGAL FUNCTION (2) 
59 067250 132006 WORD ATA!OPI!IVC!IAE ; 

60 067252 13000C “WORD ATA!OPI! IVC ;RECALIGRATE 
61 06 2000 -WORD OPI DRIVE CLEAR 
Ge 067256 03000 -WORD OPI!IVC ;RELEASE 
57260 +13000C WORD OPI !ATA!IVC 3 OFFSET 
64 067262 130006 -WORD OPI!ATA! IVC RETURN TO CENTERLINE 
65 06 92000¢ -WORD OPI READ IN PRESET 
$6 57261 000 «WORD OPI sPACK ACKNOWLEDGE 
67 067270 130001 WORD OPI!ATA!ILF!1VC ILLEGAL FUNCTION (24) 
: 130001 -WORD OPI !ATALILF ! IVC ILLEGAL FUNCTION (26) 
57274 13200 “WORD ATA!OPI!IVC!IAE ; SEARCH 
57076 130001 WORD OPI!ATALILF !IVC ILLEGAL FUNCTION (32) 
71 067300 130001 WORD OPI !ATALILF !IVC ; FUNCTION (34) 
2¢ 067302 130001 WORD OPI !ATALILF! IVC FUNCTION (36) 
57304 130001 -WORD OPI !ATALILF ‘IVC ; FUNCTION (40) 
74 067306 130001 -WORD OPI!ATALILF !IVC ; FUNCTION (42) 
75 067310 130001 -WORD OPI!ATA!ILF! : FUNCTION (44) 
76 067312 130001 -WORD OPI!ATALILF! IVC : FUNCTION (46) 
o7314 0 3300 WORD WCE!OPI!IVC!IAE!AOE!HCE!ECH =; HECK DATA 
78 067316 i WORD WCE!OPI!IVC!IAE!AOE!HCE!ECH =; HECK HEADER AND DATA 
57320 130001 WORD OPI!ATALILF!IVC ; FUNCTION (54) 
57322 ©130001 «WORD OPI!ATA!ILF! IVC ; FUNC (56) 
1 067324 20( . WORD I! IVC:WLE! IAE! AOE !HCE ; TA 
57326 03700( “WORD OPI!IVC!WLE!IAE! ADER AND DATA 
) 130001 -WORD OPI !ATALILF! IVC ; FUNC 64) 
32 130001 WORD OPI!ATALILF! IVC ; FUNC 66) 
5 $0C -WORD OPI! IVC! TAE!AQE! HCE !EC ; TA 
: i -WORD OPI! IVC! IAE!AQE!HCE!ECH READ HEADER AND DATA 
57340 130001 -WORD OPI!ATA!ILF! IVC 74) 
06 130001 -WORD OPI !ATA!ILF!IVC : 76) 


one 


COWONAU Swi 


a 
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ON (ATA) TABLE 
-SBTTL ATTENTION (ATA) TABLE 
1 ATNTBL: .BYTE 1. 
7 “BYTE 2. 
“BYTE 4. 
1 “BYTE 8. 
30 “BYTE 16. 
> 1 th 64. 
26 300 “BYTE 128. 
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DATA PATTERN TABLE 





1 .SBTTL DATA PATTERN TABLE 
¢ 7. 3 RGDTPT: 
2 Oe “WORD e 
8 . “WORD 3. : 
8 JC ~WORD 7 
Je -WORD 15. 
10 JC - WORD 31. 
11 #". -WORD 63. i 
12 dé . WORD 127. | 
1 Y ~ WORD 2 5. 
14 - WORD 511. 
15 0674 eWORD 1023. 
16 0674 .WORD 2047. 
1 ' 57 ~ WORD 4095. 
18 067 .WORD 8191. 
6741 ONES: <:WORD 6 535: 
0674 Word $2767. 
0 “WORD 12585: 
5 0674 .WORD 8191. 
1674 “UORD t 023. 
0674 ~ WORD 511. 
0674 “WORD 255. 
06744 - WORD 1 r. 
96744 eWORD oe 
ear “WORD 5, 
0674 ~ WORD ' & 
560 mm 7 
0674 ZEROS: .WORD 0. 
40 67 : "WORD: 
2 por - WORD re 
23 674 “WORD 8, 
"4 4 e F 
rf: Ne 4 “WORD 45° 
N67, -WORD 64. 
i 067 . WORD 128. 
rf: D¢ “WORD $3 . 
067 WORD 1024 
067 “WORD 2048 
R68 i “WORD ° 
Dé “WORD 
5 é - WORD ; 
Jt ~ WORD 
Je ~ WORD 1 
| 
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ERROR MESSAGE TABLE 
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oEMS76,0 
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Bre 
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4 
10 
11 07 74 10,0 
\¢ 7 7504 11,EMS12,0 
13 07 7511 13.EMS14,EMS15 ,EMS16,0 
14 070102 075 17, EMS64 ,0 
15 mye 4 11,EMS21,0 
16 070116 075 11, EMS22,EMS27,0 
1 Oro ke 75 11 ,EMS25,EMS30,0 
18 A. 7504 11 ,EMS24 EMS 8 
1 146 07504 EMS11 ,EMS25 ,EMS27, 
70156 07504 EMS11,E EMS27 0 
1 orgs 75 EMS11,E EMS 8-8 
¢ fa 6 075040 EMS11.E EMS 8 
70 075040 EMS11,E EMS50, 
4 4 16 075040 EMS11,E EMS30,0 
5 070 <6 075 EMS11,E ‘ 
0 75 EMS11,€ ‘ 
070246 075 EMS11,E EMS50, 
8 070256 075 EMS11.E EMS50,0 
0 7 075040 EMS11,E EMS30, 
hi 6 es 94 EMS1 EMS50, 
1 070 7504 EMS1 EMS50, 
$ te 16 075040 EMS1 0 
EMS1 te 0 
5 0 
40 


41 


NNN 
o. 
rs 


sae 

ae 

<3 
ELE, 


° 7,0 
oEMS113.EMS140.EMS141, 
7,EMS115.EMS141.EMS164, 


dd 


aS 
om 43 eS52 oF 7 EMS50,ENS70,0 
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ERROR MESSAGE TABLE 
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EMS160 
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EMS25,EMS27.EMS15 
EMS gE 7,EMS15 
EMSG/ ERS! 3 ,EMS! 





754 


ses 





o¢ 73388 075443 1011 























FERERS 





MS123,0 
: EMS5S1 02,0 
: 04 35 
076274 : MS : EMS202,0 
74 : G.Ems20e.0 
0 : 2°EMS115.EMS152,EMS72.0 
1 : MS103.E 6 
S EMS -EMS2 20 
or 100631 : »EMS141 .EMS115,EMS140,0 
76323 077065 0 : EMS51 .EMS72,£MS115,EMS50,EMS70,0 
1 07 077628 : EMS142 Fass /EMS115.EMS143,EMS?2,0 
0 077321 07 : -EMS10 "EMS53 
7 102 4 101402 : ~EMS205.EMS166,EMS206,EMS115,EMS51,EMS72,0 
07 076446 : MS52,EMS117,EMS56,EMS163,0 
75454 07665 : EMS64.0 
0754 076697 : °EMS64.0 
075454 076657 : *EMS64.0 
075454 07 : EMS47, EMS64.0 
1 077660 0771 : /EMS117,EMS77,0 
077660 076631 EMT223: Z mS117.EMSGS 0 
77660 1 33 : EMS117,EMS225.EMS115.EMS226,0 
102701 102712 EMT225: 225,£ 7 EMS 36,€MS115,EMS156,EMS231.EMS57,0 
: 19 71 : 454 EMS11,EMS230,EMS30,0 
102652 077625 EMS225,EMS226,EMS115,EMS230,EMS72,0 
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ROR MESSAGE TABLE 
172 072624 101 .WORD MSI 
178 8 632 101 o1 “WORD EMS1 EMS210,EMS26,EMS27,0 
174 072650 102013 077244 “WORD ERS 
175 0 10201 “WORD 0 
176 726 102013 0 “WORD EMS 
3 500 Oe 51 “GORD 06 % 
139 072724 076351 74 “WORD : 206,EMS115,EMS51,EMS72,0 
180 744 - WORD é 
i 5 OF Fe 5 ¢ “GORD EMS EMS152,EMS70,0 
1 50¢ $555 $2 WORD ~EMS152,EMS72,0 
1 124 1 “WORD 
185 073036 076274 WORD 11 EMS46..0 
1 154 076245 07 “WORD 0 
1 z 0 170 076245 “WORD 0 72,0 
1 1 131 “WORD 1 0 
1 1246 076323 WORD 02,ERS1 0,6 
190 0731 76631 “WORD : 1 MS146,0 
191 073160 0 WORD 4 5 
198 172 07624 “WORD 7,€MS11 
19% O78504 O76666 “WORD 357 EST Oems70.0 
195 3244 OF ooss . WORD 57 EMS152,EMS72,0 
196 0 3366 101 “WORD €MS165,EmS100, EMS 
197 073300 101 -WORD £MS165.EMS101 
198 0 101 -WORD £MS165.E 
1 076216 “WORD ENS -ERS f 0 
1 073346 076274 WORD EMS50,ERS146,ERS1 “EMSS .EMS117,.EMS46.EMSS7.0 
6 1 37 -WORD &MS142,EMS14 “EMSS -EMSS7. 
9 a 57 “WORD a $°ERSt Ens Emee5 “6 
3 100 : .WORD £MS144.EMS14 EMS105 EMSS? .EMS115,EMS143,EMS70,0 
44 0760 WORD EMS42.ENS103.ERS ,EMS57,0 
07 WORD 3 ~EMS103,EMS53,EMS57,0 
7 £70 2 -WORD €MS71,EMS31,EMS103.EMS57.C 
502 076051 -WORD £MS43,EMS103, : 
10 07 3 076135 .WORD €MS45,EMS103,EMS57, 
11 07% 761 WORD , 
12 07 33 g 4 WORD 
1 736 WORD 
55 101336 WORD ? 
1 s 07313 “WORD MS53,EMS175,0 
1 ey ; 4 e WORD eo 
/ 6: eee? “WORD nS ' $53 mS175.0 
560 07 “WORD mS115,.EMS50.EMS70,0 
576 131 WORD °EMS141,EMS57,EMS115,EMS47,EMS75.0 
216 77131 -WORD £MS75.EMS150 EMS15¢ ,EMS97,EMS115,EMS96,EMS73,0 
76531 WORD ENS6O EMS61 EMS 
73744 -WORD £MS116,EM if EMS 34,0 
u 736 139 “WORD EMS 54. ERS ,EAS54,E4S111,0 
4 076351 : “WOR ORD EMS52.EMS117,€MS56,EMS57,0 
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MESSAGE T 


1 07414 
7415 


4 0741 
5 0741 


$ Br 
s Hie 


074260 


103616 
103082 


i 
BSL 


103534 


wed 


103665 104812 


EHT1: 
EHT2: 


EHT110: 
EHT111: 


ENT ITS: 
ET O56: 


EHT353: 


EH1,STSH1,STSH2,STSH4,0 
STSH1,STSH2,STSH4,0 
EH110.0 

EH111.0 


By 


sor er sill. ST 
; 37, STSH1,ST 
EH344 ,STSH1,ST 


EH353,0 


33 
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oSTSH4, 
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0 
0 
“0 


SEQ 0276 | 


a 


G 6 


CZRNFAO_RM8O FCTINL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 55 
ERROR MESSAGE TABLE 


1 


4 
5 


74264 
074306 


Petre 


104062 
104100 


ifs 


104134 


104144 
106144 


104166 


104162 


1041 
BIg 
1041 


EDT1: 
EDT2: 


EDT110: 
EDT711: 


EDT114: 
EDT223: 


EDT336: 
EDT337: 
EDT344: 


EDT353: 


ED1,STSD1,STSD2,STSD4 
STSH1,STSO2,STSD4 


ED110 
ED111 


ED114 
ED223,STSD1.STSD2,STSD4 


ED536.STSD1.STSD 
EDS3¢- 81801-8190 
ED337,STSD1,STSD 
ED353 


: 


eSTSD4 
STSD4 
STSD4,0 
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ERROR MESSAGE TABLE 
1 074 7 45 1062465 EFT1: .WORD F111, STSF.STSF.STSF 
; 1336 100545 192348 1903¢8 EFT2: .WORD STSF.STSF,STSF 
4 1 EFT110: .WORD €F110 
¢ iS, 192339 EFT111: .WORD €F111 
7 1 EFT114: .WORD €F114 
Ort 19233] 104245 104245 EFT223: .WORD €EF114.STSF,STSF.STSF 
45 €FT336: .WORD EF »STSF .STSF,.STSF 
Kf Orece 104934 194348 : 365 EFTSe?: WORD EPS36.st3F. TSE STS 
12 74430 1 104265 104245 EFT344: .WORD *STSF .STSF..STSF 
14 074440 106231 EFT353: .WORD €F114 
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ese § 





RRRRER 





1 120 EHI: .ASCIZ @EXPCTD RECEVDa 
1 123 EH110: -°ASCIZ @BUSADR@ | 
122 «115 «EH171: = SASCIZ RACS1@ | 
2 105 103 ENIIG: | .ASCIZ SNGPRT DULPRT@ | 
1 120 EHees: -ASCIZ RECEVD DATA@ | 
med 120 EH256: <ASCII RECEVD RGSTR@<CRLF> | 
126 = 101 “ASCIZ STATUS INDEX@ | 
(7 104101 EHS36: .ASCIZ GDDATA BDADRS BDDATA@ 
22113 103 EHSS7: ASCH STATUS FAILING DATA@<CRLF> 
: e137 “ASCII a<CRLF> 
v5 1 1 -ASCIZ @EXPCTD RETEVD ~“BITABRESS@ 
22 «115195 EH344: ASCII @RMERT STATUS HEADER FAILINGACCRLF> 
— “ASCII @ WORD —_ BITa<CRLF> 
05 130 120 -ASCIZ @ERPCTD RETEVD NUMBER 
05 150 «120 EHS53: ASCII @EXPCTD RECEVDACCALFD 
: 2 2 “ASCIZ @<CRLF> RMLA = RMLA 
0 122 115 STSH1: .ASCII @ RMCS1 RMCS2 RMDS MERI RMERZ@ 
0 040 040 -ASCIZ @ _ RMAS@ 
0 128 113. STSH2: ASCII RMOF  RMDC@ 
0 04 040 -ASCIZ 
0 1283 STSH3: -ASCIZ RMLA@ 
0 12 115 STSH4: | .ASCIZ RMSNa 
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RR 
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So 


04110 001134 001140 001136 ED3536: .WORD S$GDADR,SGDDAT,SBDADR,SBDDAT.0 
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STRINGS SEQ 0283 


1140 1142 000000 ED! 
00127 ED1 
117 1176 000000 €ED1 
ED] 

2 


| 
’ 


> WORD SGDDAT gSB00AT. 0 | 
10: .WORD SBASE 6 | 
001364 1176 0012 14: .WORD RMDTI.STMP1,S$TMP2 
1140 001142 001174 ED223: .WORD $GDDAT,$BDDAT.$ 


ss 


. 





0 | 





46 2M ME 6 AM OE et i 



















22 114 114 001174 ED337: .WORD $GDDAT,S$BDDAT.STMPO,$TMP1,0 

114 114 1444 £D353: .WORD $GDDAT.$BDDAT.RMOFO.0 

4 1 1 001350 STSD1: .WORD RMCS11,RMCS21,RMDSI.RMER11,RMER2ZI .RMASI,O | 
: 001340 Oo1343 001304 STSb2: -WORD — RMWC RMBAI .RMDAI ,RMOF I .RMDCI ,RMECI 
02 001344 4 001 001370 STSD3: .WORD RMDAI.RMDC1.RMOFI,RMLAI,O 
14 1376 001364 STSD4: .WORD RMMRII,RMMR2I, RMD TT RM MAASAI . 0 { 
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STRINGS 
oF 
tit EF : .BYTE ; 
06 090 EF336: .BYTE 0, 8. 
06 EF 335 : BYTE P 8.0 


-BYTE 0,0,0,0,0.0,0 
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ERROR MESSAGE STRINGS 


STORAGE FOR GENERAL DATA TRANSFERRS 


BUFFER: 


BUFTUO: “BLK 938. 
















































“STORAGE FOR MANUFACTURES 16 BIT ‘MODE BAD SECTOR FILE 
MFGFIL: . R 
-BLKW 6-256. 7256. WORDS OF DATA 
-WORD 1 : TERMINATOR IF FILE IS FULL 
:STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE 
USRFIL: . 
-BLKW 256. 7256. WORDS OF DAT 
.WORD 1 = TERMINATOR IF PILE IS FULL 
sSTORAGE FOR SKIP SECTOR FILE 
SSFIL: .WORD 0 :2 HEADER WORDS 
-BLKW 28. :2_CYLINDERS OF SKIP SECTOR ENTRIES 
-WORD -1 : TERMINATOR 
. =BUFFER 
HELP: 
eASCII <CRLF> 
-ASCII <CRLF> 
.ASCII @LIST OF TESTS@<CRLF> 
ASCII] 9 Qeenee--------39<CRLF> 
ASCII a1 CONTROLLER ACCESS TEST@<CRLF> 
ASCII aT WRITE, READ ZEROS@<CRLF> 
ASCII at WRITE CHECK ZEROS@<CRLF> 
ASCII a4 WRITE CHECK ZEROS W/ WCE ERROR@<CRLF> 
ASCII aT5 READ CRLF> 
ASCII aT WRITE CHECK ONES@<CRLF> 
ASCII aT WRITE CHECK ONES W/ WCE ERROR@<CRLF> 
ASCII @T10 WRITE CHECK MULTIPLE SECTORS@<CRLF> 
ASCII aii READ W/ IMPLIED SEEK@<CRL 
ASCII afi WRITE CHECK W/ HEAD Suittn TNGA<C RLF> 
ASCII aT WRITE CHECK W/ MID-TRANSFER SEEK@<CRLF> 
ASCII aT14 READ W/ HC ERROR@<CRLF > 
ASCII aT15 READ W/ HCI SSEI@<CRLF> 
ASCII ati » READ W/ IVC RROR@<CRLF> 
ASCII aT » READ W/ ABORT@<CRLF> 
ASCII aT » READ EARLY PEAK SHIFTa<CRLF> 
-ASCII @T21 WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT@<CRLF> 
ASCII aT READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE@<CRLF> 
ASCII a3 FORMAT FE CYLINDERS@<CRLF> 
ASCII SOPERATIONAL SWITCH SETTINGS@<CRLF> 
ASCII a@SWITCH USEa<CRLFD 
ASCII a@------ - S@<CRLF> 
ASCII a 15 T ON ERROR@<CRLF | 
ASCII @ 16 LOOP ON TESTa<CALF 
ASCII a 13 INHIBIT ERROR TYPEQUTS@<CRLF> 
ASCII @ 12 a<CRLF> 
ASCII a 11 INHIBIT LTERATIONS@<CRLF> 
ASCII a 10 BELL ON ERROR@<CRL 


mec 


ee 
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RROR MESSAGE STRINGS | 
58 106034 04004040 .ASCIE @ 9 ON ERROR@<CRLF> 
59 1 : 0 060 ‘ASCII a 8 OOP _ON TEST IN SWR<7:0>a<CRLF> | 
60 1061 04 ? 0 ‘ASCII a 7 TN128a<CRLF> | 
61 1061 0 0 “ASCII & a<CRLF> 
6¢ 106146 040 0 “ASCII a TN32a<CRLF> | 
63 10616] 040 = 040040 ASCIT @ TN16a<CRLF> | 
64 106174 06 04 “ASCII a 3 NBa<CRLF> 
65 1 040 040040 -ASCIY @ 2 CRLF> 
66 1 04 0 09 cASCII a 1 TNza<CRLF> 
67 1 040 040 040 ‘ASCIZ a 0 TN1a<CRLF> 
69 000200 .END 200 
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SYMBOL TABLE 
ABASE = 77 EBL = 4 103376 
ACDW] = $67 4 ECH = 3 1035 
ACDW2 = = ECI = 4462 
ACKSTS ECRC = 001 0 7477 
AC 1 4 EDT! 74 00 077216 
ADDWO = EDT110 074302 1 077244 
ADDW1 = 000400 EDT111 074 MS ¢ 77 
ADDW10= 1000 EDT114 074 EMS 77321 
ADDW11= 1 EDT 74274 EMS104 07 
pol 62 EDT223 074310 EMS 2 77 
ADDW1 5344 EDT 74 $ EMS 774 
ADDW14= BAI 000010 EDT 74 E 7504 
ADDW15= 6800 000001 EDT344 074 EMS erie 
— = 8801 000002 EDTS53 07435 EMS 774 
= BB0 600004 ED! oh EMS 077465 
ADDW4 = 000010 ED110 10405 EMS 077551 
ADDWS = BB04 000020 ED111 Hg EMS 077 
_— = 000040 114 1040 EMS 077625 
= a's 000100 3 104100 EMS 0776 
ADDWS = 000200 194110 EMS 077 
ADDW9 = 000400 132 1¢¢ EMS 075051 
ADEVCT= 001000 535 1941 EMS 07770 
ADEVM = BITO 000001 cc = ¢0 EMS1 07770 
ADR = BITOO = 000001 1 & EMS 
B1TO1 7110 72 EMS 100002 
BITS 1111 EMS 100045 
7114 
T 
T 
T 
T 
T 
T 
1 
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000002 

sits = Sats ieee, 
BIT04 000020 2 100142 
BiTOS = 000040 3 100205 
ae 000100 10 075112 
se, = Rss tite ies 
Bi Suu ae tues ies 
BIT10 00000 7 671 $ 100411 
BIT171 = 004000. 4 1 1 EMS135 100453 
oT 010000 1 EMS! ees 
BIT1 020000 104240 EMS137 100553 
BIT14 = 040000 EXT? 74140 EMS14 075123 
BIT15 = 1 EHT110 074162 EMS140 100610 
BIT EHT111 erie EMS141 100631 
BIT 10 EHT114 0741 3 EMS142 100657 
BIT 20 EHT 7415 EMS145 100674 
BIT 0 EHT223 07417 EMS144 1 $ 

i EHT256 9 074 EMS145 1007 
EHT ee EMS146 100761 
EHT 4 EMS14 191000 

1 EHT544 074 EMS15 60751 
7241 EHTS5S 074 EMS150 101015 
?. 39 EH1 1 EMS151 101035 
7 EH11 1 ¢ 101057 
7. EH11 1 MS 1 1193 
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ATA O00( —E = EH 38 ] MS 3 10 197 
ATESTN= 00000C BUFFER EH 1 EMS16 075156 
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ERTYOO RMAS = 
ERTYO1 RMASI é 
ERTY : RMASO E 
ERTY RMBA = t 
ERTY RMBAE = e 
ERTYOS RMBAE | E. 
ESRC = RMBAEO é: 
FER = RMBA! E: 
FIND = RMBAO E: 
FAT16 = a RMCS1 = E: 
FNCDTB 44 RMCS11 E: 
é = RMCS10 E: 
FOié= RMCS2 = E® 
- RMCS21 + 
r¢ = RMCS E: 
F = PFEC RMCS + 
FL os RACS31 EP 
GENBUF PG RMCS 
GET RMDA 
EMT GE TBUF PHA 
GETINX I RMD 
EMT GETSSF PIRQ = 1 
GETSTS PIRQVE= 4 
EATS GO PLFS = 
EMT GTSWR = PRIERR 126 
EMTS HCE = PRO = 
EMT HCl = PRI = 
EMT HCRC = PRe = 000100 
EMT54 HELP = 000140 
EMTS5 HT = PRA = RMDSO 
EMT IAE = PRS = 40 RMDT 
EMT IBSAVE PR6 = RMDTI E 
EMT IDXMSK= 00€ PR7 = 0 E 
EMT IE = 0000 PSs = *17777 RMEC1 E 
EMT ILF = 90200C PSEL = RMEC . 
EMT ILFO2 = 00004 PSW = REC cE 
EMT ILF24 = 000( PUT 0 RMEC2 = 000046 E 
EMT ILF26 = 16702 PU RMEC 1404 E 
EMT65 ILF30 = 10000¢ REC 1460 
EMT ILF = vi iF ve RMERT = 0014 E 
EMT ILF34 = 167036 RMER 52 E 
EMT ILF36 = 06611 RMER10 28 E 
EMT ILF4O = 001 00° RMER2 = t 
ERT ILF42 = 00001( RMER?I 96 e 
ILF4 = IC 07 RME 4 E 
EMT ILF46 = 00100 RMHR = 36 E 
EMT ILF54 = 6 Y PMR f 4 E 
pat ILF56 = 6C RMHRO 50 E 
ILF64 = 11000( RECAL = 00 RMLA = | 
ILE G6 = 10400( SRE RMLAI é E 
ILF74 = 16722 RAL 40 e 
ILF76 = eee RMARI = 
ILR = 00 0671 3¢ KMART I 
ILRGSO= 0671 j RMR IO 
ILRGS = 444 0670€ =: = 
ILRG54= 4 100¢ 4 RIP = RMR I 
ILRG56= 10000C RLEASE= RMR 
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RMOF = STSD4 14 TST1 9 712 $5522 | 
RMOF I STSF 104245 TST1 1734 1151 : | 
RMOF 0 STSH1 1 19 TST14 2546 11 
RAR = ST 1 TST15 441 1 
RMSN = ST 103754 1$T16 57 5606 | 
RMSNI STSH4 10401 TST1 40 1122 
RMSNO SwR 0011 TST 10076 1124 
RC = SWREG 176 TST 0 656 1254 
RMIC I SwO = TSTe1 1260 | 
RMWCO swOO = 1 TST : 1712 1 64 E: 
RQA = Sw01 = 2 TST 33074 1 E: 
ROB = swo2 = TST 013104 1¢2 E: 
u se 2 ams TRS EMRE i 
= = 2 
eo: ss 2 $008} gases 18 : 
SADMSK= sw0g = 000100 TST 015242 1 E: 
SAVREG= SwO7 = 000200 TYPBN = 106606 1 E: 
SAl = Sw08 = 000400 TYPDS = 104405 E: 
SA16 = SwO9 = 001 TYPE = 104401 116 4 
SA2 = SW1 = TYPOC = 1 40¢ 1 36 E: 
S44 = Sw10 = TYPON = 1044 124 E: 
SAS = SW11 = 000 TYPOS = 1044035 001 : E} 
_ - Suig = 010000 UNS = 04000( 5 E: 
SCOPE = Swi3 = 0 UNTMSK= 0000( 1293 E: 
SCTMSG SW14 = 040000 UNTOFF 067155 001257 e' 
SCTMSK= swi5 = 1 UNTON 067166 001 263 | 
sco. l= SW2 = UPE = 02000C 001267 E 
sci = Sw5 = 10 USE = 04000( 062152 E 
C2 = Su4 = 20 USRFIL 107 001170 E 
sc = SwW5 = 0 uO = 000C 1 pone? r 
s S = 1 ul oe 00¢ ! ,! 2 0611 
SW7 = 0002 U2 = 0000 06113¢ E 
=e z= 00 VV = 00010 obo] E 
S = 100 WC = 00004C 1230 E 
7044 wCD = 00005( 001106 E 
TADMSK= 1774 WCE = 04000C 55 E 
TAG = WCEHI = 01000C 063362 ! E 
TAGADR= WCELO = 00400C 5516 
= WCF = 00004C 5434 
= WCH = 0000 ' 1 16 
= 7) = DOOC ' E 
= ibe = ODF v4 ia 
A8& = WLE i) 06 E 
TBITVE= WRL_ = 004006 E 
TIMOU XSIZ 00636 i 
TKVEC = XXDP sO E 
RAPVES FEROS 067 E 
= Ore : 
— = SAP THD 101100 SGDADR E 
TRIVEC= SATYC  0655¢ S$GDD 3 
st = SATY1 065540 $GE E 
TSTNMB SATYS 06 $G D¢ e 
TSTPRP SATY4 06 $6 10 E 
TSTQUE TOB 90118 $HD 4 1 E 
ST1 E 001276 SHIBTS ¢ t 
TST10 ADR 001 38 $HIO é 1244 
TST11 SBDDAT 00114 SICN 
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TYPE 1134 
STYPEC 1346 t 
STYPEX 14 | 
STYPOC 7 | 
TYPON 746 t 
STYPOS 7 { 
IT \¢ t! 
SUNITM 1110 t 
WR 1246 t 
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47-1 7-1 GHA | 

aaa -ioe sae Biebe | 
re rc  , . : a? ee Pat ae 
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SSAVR6 47=1 47-18 47~1* 47-1* 47-1* 
46-1 46-1 


$ $ 41-14 
SSETUP 4-785 4-785 4~785 4-785 4-785 4-785 4-785# 44-7854 4-7858 44-7854 4-7858 4-7858 4-785# 10-23 
10- 10-33 1 a 10-2 10-2 10- 10-2 10-33 10-2 10- 10- 10-28 10-28 
14- 14- 41-1 42-1 42-1 42-1 42- 44-1 44-1 44-1 44- aa 
SSTUP 4-785 4-785 4-785 4-785 4-785 4-785 4-7858@ 4-7854 4-785# 4-785 4-785 4-785# 4-785# 4-7854 
4-785 44-7858 4-7854 4-7854 
SSVLAD 41-1 41-14 


SSWR -477# 4-4 4-489 4-489 4-489 4-489 4-489 4-489 4-489 4-489 -0 10-23 

16-2 1 a5 10-2 10-33 13-2 13-3 13-180 13-304 13-436 13-644 1 “799 13-968 18-523 13-209 

> 13-? 1 7 HE om fal 13-F 29 al 13-H92 i i toh 4-20 14-2 14-2 14- 14-20 
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STMPO 13-54% 13-2012 13-343* 13-465 13-517 13-665* 13-810* 13-935* 13-990* 13-:28% 13-:45* 13-19% 13-A18« 
13-A20* 13-826 13-8 8* 13-C10* 13-£13* 13-G68* 13-114* 13-J63* 17-59 18-85% 20-41% 21-35% 27-29% 27-31 
STMP1 11-13" 11-14 11-16 11-36 11-4 11-50" 11-5 
1-76 36 11=7 11-83 ~ 


11- 11-95 13-55* 
13-A21* 13 ® 13-Cti 
26-3 “ 
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1 13- 13-32 13-3228 13-4 1 13-4 13-644 
1 13- 13- 13- 1 1 13-; 1 “323 
13-> 13->73 13-> 13-> 13-7 1 13-? 13-88 
13-097 13-D97# 13-F29 13-F29 13-F2 1 1 13-647 
13-563 13-543) 132563) 13-0463H = 13-L15 1 13-L15# 41-1 

$TPB 40-1 40-1 40-1 

STPFLG 40-1 40-1 40-1 

STPS 40-1 40-1 40-1 

$T 10-23 46-14 

STRAP2 46-1 46-18 
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